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Batalha Naval 
Via linha Sinclair 



Utilize aind 



AS-1000 

o micro que cresce com voce 




CARACTERISTICAS TECNICAS: 

• 16 K bytes de memoria in icia is 

• Expansao interna para 32 e 
48 K bytes 

• 8 K bytes de memoria EPROM 

• Microprocessador Z-80A 

• Teclado de membrana com 
acao mecanlca positive 

• 40 teclas e 1S4 funcoes 

• Basic e linguagem de maquina 

• Video normal ou reverso 

• Saida para qualquer Impressora 

• Manlpula ate quatro cassetes 
com geracao de arquivo 

• Modem 

• Joystick 
Speed File 

Fonte de alimentacao 
emblitlda (1 10/220 volts) 

• IMivel de leitura de gravacao 
automatlco \ 



O Microcomputador AS-1000 
e uma otima escolha para quern esta 
iniciando na ciencia da computacao. Seus 
recursos de programacao e sua concepcao 
modular, porem, permitem que ele \ 

o acompanhe ate as aplicacdes mais w 

sofisticadas. S 

O AS-1000 ja nasce com uma biblioteca de 
milhares de programas para jogos, 
administracao domestica, aplicacdes 
comerciais e prof issionais. 

O AS-1000 e fabricado com a qualidade 
ENGEBRAS e garantido por um ano. 

Entre na era da informatica com a escolha 
certa. AS-1000, o seu micro pessoal. 

Escreva-nos, sua correspondencia nao ficara sem resposta. 

B ENGEBRAS 
ELETRONICA E INFORMATICA LTOA. 
Rua do Russel, 450 - 3.° andar 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 
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Maio 1984 



Valmir Benjanum de Arruda 
Jardim Ailanti™ _ ^- l[( j u ^ 
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-I A PROGRAMAS QUE 
14 RACIOCINAM - 

Acompanhe com o prof. 
Antonio Costa este interessante 
relato sobre os sistemas 
especialistas e seu poder de 
raciocinio logico e dedutivo. 
Como exemplo, um Programa 
Detetive para que seu micro 
possa demonstrar sua 
inteligencia ao desyendar o 
misterio de uma investigacao 
policial. 



*y £\ SIDRA - Tiros de raio 

£\J laser! Helicopteros 
voando! Este mes, Rudolf 
Horner Jr. ensina como voce 
pode obter efeitos especiais 
como estes utilizando recursos 
do proprio Apple. E mais: 
como registrar e recuperar 
informacoes em fita cassete 
com mais eficiencia e rapidez. 
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grg- EM GEOMETRIA, A 
\J\} AREA E DO MICRO- 

Arquitetos, engenheiros, 
matematicos... voce, usuario da 
linha TRS-80: aproveite os 
recursos deste programa de 
Heber Jorge da Silva que 
desenha e calcula a area de 20 
figuras geometricas diferentes, 
bastando que voce entre com 
as medidas necessarias. 



BATALHA NAVAL - 

Viva as emocoes desta 
verdadeira guerra de nervos e 
perspicacia contra seu micro da 
linha Sinclair. Esconda bem os , 
seus, destrua todos os navios 
de seu inimigo e seja o 
vencedor deste jogo escrito por 
Waldir Ferreira de Arruda. 
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A ROTINA APONTA-ERROS - 

Programa de Carlos A. Diz. 

GROAN: OS DADOS ESTAO EM JOGO 

- Programa de Jos£ Roberto Cottim. 

CORRIGINDO PROVAS NO MICRO - 

Programa de Lawrence Falconer King. 

PARA BOM INVESTIMENTO, UM 
MICRO PESSOAL BASTA - Programa de 
Armando Oscar Cavanha Filho. 

ABRINDO ESPACO PARA A 
LINGUAGEM DE MAQUINA - 

Programa de Jose Ricardo Flores 
Rodrigues. 

DOMINE O MICRO NO DOMIN6 - 

Programa de Everton Pereira. 



DE AZIMUTE EM RUMO - Programa de 
Laci Mota Alves. 
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MICRO BUG: O COMANDO M E AS 
PRINCIPAIS ROTINAS SGM - Artigo 
elaborado pela equipe do CPD MS. 

OUTRAS PALAVRAS EM FORTH - 

Artigo de Ivan Camilo da Cruz. 

MANTENHA SEUS BYTES SOB 

CONTROLE - Artigo de Carlos A. Diz. 

ALEM DO BASIC, ASSEMBLER, DOS 
E OUTROS MISTERIOS - Programa de 
Roberto Quito de Sant'Anna. 

CURSO DE ASSEMBLER - XVI 




;usto no momento em que o met- 
cado brasileiro comegaaadentrar 
mais claramente na discussdo so- 
bre os equipamentos de 16 bits, 
32 bits, micrinhos, supermicroes 
e outros bichos, uma verdade insofismd- 
vel pode ser detectada: a micro-infomtd- 
tica no Brasil ainda mo constitui uma 
comunidade de usudrios que eficiente- 
mente interaja com a mdquina. Culpa- 
dos existent por toda parte e nao se tra- 
ta, aqui, de expurgd-los, visto que o re- 
medio neste caso pode acabar matando 
o paciente, mas e preciso exorcisar al- 
guns fantasmas que insistent em perma- 
necer no gendrio. 

A profusao de modelos tipo XLMWj 
33 (o "X" e experimental), compativel 
apenas consigo mesmo - alterou urn en- 
deregozinho do Apple, um parafusinho 



no TRS, um pequeno chip do Sinclair, 
resultando num "parece que e, mas nao 
e, vulgo Denorex " - acaba causando ta- 
manha confusao para os usudrios que 
desencorafa qualquer tentativa de desen- 
volvimento real de um software de qua- 
lidade. 

Nao fosse isto suficiente, basta o 
acontecimento de uma feira ou uma ex- 
posigdo de microcomputadores, e logo 
uma dezena de novos modelos sao lan- 
gados na praga, alguns chegando ao cu~ 
mulo de serem langados mais de uma 
vez. Sao os chamados "microfeira " 
cujas trajetorias, do langamento ao apa- 
recimento efetivo nas lojas, sao muitas 
vezes longas a ponto deles se perderem 
no caminho. O consumidor em poten- 
cial, quefd tinha duvidas quanto ao equi- 
pamento a escolher r fka ainda mais con- 
fuso. 



Estamos passando por uma fase de 
mistificagao do hardware, que sem du- 
vida nos levard a um beco sem saida. 
Exemplos como Visicalc, Wordstar, etc., 
demonstram que o lampefo que cria o 
software independe do equipamento, 
pois a utilizagao e muito mais importan- 
te que o meio. De fato, hoje existem 
versoes para todos os tipos de equipa- 
mentos dos melhores softwares criados 
internacionalmente nos ultimos anos. O 
que precisamos sao mecanismos e incen- 
tivos que preservem a atividade CRIA TI- 
VA, nao importando que ela incida so- 
bre um IBM PC, um Apple, TRS, ou 
Sinclair. 
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Aten^ao leitores: 

MICRO SISTEMAS 

mudou! 



Estamos atendendo agora nos seguintes enderepos: 

RIO DE JANEIRO - Av. Presidente Wilson, 165/grupo 1210, Centro, RJ, CEP 20030- 

tels.: (021) 262-5259, 262-6437 e 262-6306. 
SAO PAULO - Rua Oliveira Dias, 153, Jardim Paulista, SP, CEP 01433 - 
tels.: {011) 853-7758, 881-5668 e 853-3800. 
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Datalife tem 
resposta para tuda 



*<*L~ 
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E a Memphis 
respondejiinta 



Os Disquetes Datalife sempre t€m 
um modelo exato para cada tipo de 
necessidade, seja ela para controles e 
decisoes empresariais, assuntos pessoais 
e profissionais ou lazer com 
microcomputador . 

fflemphis 



Sao os mais vendidos no mundo e 
produzidos pela empresa que mais 
investe em pesquisa e desenvolvimento 
de produtos, lider mundial na tecnologia 
de midia magnetica flexivel. 

Tudo isso esta a seu dispor na 
Memphis. 

A Memphis responde, com a 
seguranca de que voce* pode comprar 



seus Disquetes Datalife num local onde 
eles tem pai, mae, residencia conhecida, 
e garantia de 5 anos. 

A Memphis tem estoques para entrega 
imediata. 

\ferbatim. 

REVENDEDORES E FABRICANTES INTERESSADOS: (01 1) 262-5332 

bESSS" Wl9^^n2^M°e^S!^ iSo S m?tp.V "?■ ? ! 1) ^ 2 - 5 , 5 c 77 -~ Te i ex - , (01 « 34545 " FILIAL RI ° DE JANEIRO: Praia do Flamengo, 66 
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( °Zy 2 1 1 " 6369 C " D J - Brasflia (061 > 223-3330 • MG - Belo Horizonte (031) 442.9472 • PR - Curitiba (041) 222-48M • RS - Porto^eSe Vo51 2V 25 ^ SaIvador 
•SC-Flonan6pohs(0482) 132 ramal 15- SP-Baum (0142) 228-4305- ^-Jun^m)^^^!?^^^^^^ 13 ■ 
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O sorteado deste m€s, que receberS uma 
assinaturade urn anode MICRO SI STEM AS, 
6 Jose Minerva de Sao Paulo. 
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ARQUIVAR DESENHOS 



Tenho uma duvida com relacab ao pro- 
grama "Desenhe no vfdeo", publicado em 
MS nP 27: tentei, comoo programa sugerta, 
arquivar o desenho usando a rotina "Arqui- 
ve no vfdeo", publicada em MS nP 23, na 
Secao Dicas. Mas dessa forma s6 seria possf- 
vel arquivar um unico desenho ou tela. En- 
ta"o, tentei passar o desenho depois de arqui- 
vado para uma variavel.aproveitando a Dica 
"Imcializando variaveis", de MS nP 26, mas 
nab sei porque isto nab foi possi'vel. 

Gostaria que voces publicassem uma roti- 
na capaz de arquivar a imagem em uma varid- 
vel qualquer, de forma que fosse possfvel ar- 
quivar va>ios desenhos em variaveis distintas. 
Se possfvel, gostaria que me informassem 
qual o endereco onde 6 arquivada a imagem 
naquela rotina "Arquive no vfdeo". 
Marcelo Batista Silvetra 
Osasco — SP 

N6s tambem, Marcelo, gostarfamos de 
ter esta rotina que arquivassevfirios desenho* 
em variaveis. Seria 6timo, mac infelizmente 
nlo temos. Talvez algum leitor ja a ten ha de- 
senvolvido e nos mande, quern sabe? Vamos 
torcerque sim. Com relacao ao endereco on- 
de e arquivada a imagem na rotina "Arquive 
no vfdeo", anote af: 6 a partir de 31000. 



c 



EXPANSAO NO CP-200 
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Recentemente comprei um CP-200 e ja" 
estou com vontade de aumentar sua capaci- 
dade de mem6rta para mats de 1 6 K, se pos- 
sfvel. Como sei que poderei contar com a 
ajuda de voc€s, gostaria que me indtcassem 
o melhor meiq para fazer esta expansab, 
pois no manual que acompanha o micro 
nab existem muitas informacoes. 
Lufs Paulo Neri de Souza 
Mutufpe-BA 

Como 6 de praxe, Lufs Paulo, mandamos 
sua carta para a Pro16gica, a esta respondeu 
o seguinte: 

"Com relapao a consulta do leitor Lufs Pau- 
lo, gostarfamos de eselarecer-lhe que a me- 
mfiria do CP 200 e de 16 K da RAM. Ate o 
presente momento, nab estamos cogitando 
em oferecer uma expansab de mem6rta para 
o CP 200, o que nab signifies que isto nao 
venha a acontecer no momento correto. 

Se o leitor conhecer o microprocessador 
Z80A, tera a 'possibilidade de aumentar a 
capacidade de mem6ria do micro, uma vez 
que, atraves da safda lateral do CP 200, tem- 
se acesso aoi sinais deste microprocessador". 
Eng. Dan Guinsburg 

Gerente de Produtos-ComputadoresPessoais 
da Prol6gica 
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Solicitamos o endereco do Institute* Bra- 
stleiro de Administra$ab Municipal — I BAM, 



pois temos interesse numa informacab veicu- 
lada em MICRO SISTEMAS nP 25, Secab 
Bits (Strings). 
Jocymar Geraldo Lyra 
Gerente Comercial da Digicap 

O IBAM fica no Largo do IBAM, nP 1, 
Humaitd, Rio de Janeiro - RJ,CEP 22282. 
E o telefone do Setor de Promocao e 1021) 
266-6622 R. 292. 
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Escrevo-thes para, antes de tudo, parabe- 
niza*-los pelo excelente trabatho que vem 
sendo feito por voces. Gostaria tambe'm de 
apoiar a id6ia do leitor Jorge Francisco Sala- 
zar, de Porto Alegre, que foi publicada na 
Secab Cartas de MS nP 27: criar uma secao 
com tabelas de precos dos micros e de video- 
games. 

Gostaria ainda que voces publicassem 
onde se pode fazer bons cursos de computa- 
cao nas principals capitals brasileiras. 
Denise Hemerly 
Rio de Janeiro — RJ 

Antes de mats nada, Denise, a equipe 
agradece os elogiot: muito obrigada e benv 
vinda a MS. As suas sugestoes foram anota- 
das, mas com referenciaaos Cursos, ja publi- 
camos uma extensa materia sobre este assun- 
to em MS nP 18, pagina 60. Di uma espiada. 
Voce 1 tambem pode ler nos numeros de MI- 
CRO SISTEMAS a Secao Cursos, bam como 
observar os diversos anuncios sobre cursos 
veiculados em nossa revista, ok? 
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DICAS PARA O DGT-100 



D 



Tenho um DGT-100, mas estou com dois 
problemas: 

l9 — como desativar o botab RESET, pois 
a tecla BREAK na"otem mtsteYios; 
29 — como, atraves de um programa em lin- 
guagem de maquina, conseguir chamar uma 
rotina, ou sub-rotina, em BASIC. 

No primeiro caso, fiquei animado quan- 
do U, na pdgina 18 de MS nP 26, o artigo 
"Programas trancados e seladOs", mas de- 
cepcionei-me, pois o artigo era para micros 
compatfveis com o Apple. Dave haver al- 
gum meio de desativar o RESET no Digitus; 
tudo indica que seja utilizada a regiao de 
comunicagSo, mas nao consigo descobrir 
como. 

O meu programa DGEDAS (Editor As- 
sembler da Digitus) desativa o RESET. Tele- 
fonei para a Digitus e o Sr. Alexandre .disse- 
me que a tecla na*o e" desativada. Nab acredi- 
to, pois o programa DGEDAS, da pr6pria 
Digitus, desativa-o. Sera" que vocfis podem 
me dar uma dica? 

No segundo caso, quero fazer a chamada, 
por um programa em LM, de uma rotina em 
BASIC, Mvro "Microsoft BASIC decoded 
and other mysteries", na pagina 30, quando 
trata de BASIC Functions, apresenta a sub- 
rotina JP 1EB1-GOSUB como "capaz de fa- 
zer com que uma sub-rotina em BASIC seja 
chamada por uma sub-rotina em Assembler", 
e da\ inclusive, um exemplo com a funcab 
TRON do BASIC. Apesar dos meus esfor- 
cos, na"o consegui que funcionasse. Ja" segui 
todos os passos dados no programa-exemplo 
e na"o consigo rodci-lo, pois sempre apresenta 
erro. Como posso fazer isso? 
Jose' Eduardo de Oliveira e Cruz 
Rio de Janeiro- RJ 

Infelizmente, Jose Eduardo, nao pode- 
mos ajuda-lo. Mas talvez algum leitor mais 



curioso e proprietario de um DGT-100 te- 
nha como auxilUMo. Vamos fazer coro com 
o seu pedido, e esperarque algum teitor pos- 
sa colaborar com o seu problema. 
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mundo dos micros e simplesmente fa- 
bufoso, o potencial inerente a esses "btchi- 
nhos" virou totalmente a mihha cabeca. 

(...) De todas as revistas especializadas 
que pesquisei, essa foi a unica a chamar mi- 
nha atencao; portanto, quero parabenizar os 
responsaVeis e incentivaMos a manter o nfvel, 
que se tern mostrado excelente. 

Atraves da Secao BITS, tomei conheci- 
mento de um curso de BASIC que pode ser 
ministrado, ou seja, desenvolvido pelo inte- 
ressado em sua propria residSncia. Nem 6 
preciso dizer que j<i mandei um comunicado 
S SDI — System Design Ltda., solicitando as 
devidas informacoes. Desde ja - agradeco aos 
integrantes de MICRO SISTEMAS o apreco- 
que tern por aqueles que estao tomando co- 
nhecimento dessa maravilhosa 5rea de atua- 
cSo. 

Mostret a revista a atguns amigos que 
tambem gostam da materia e fiquei muito 
feltz com o pronunciamento de cada um de- 
les, uma vez que se mostraram favoraveis ao 
conteudo de MICRO SISTEMAS. Os meus 
parabens a todos voces, e conttnuem se es- 
forcando para que a circulacao desse peri6- 
dico se mantenha na ativa. Respeito plena- 
mente a opiniao do nosso cam amigo lei- 
tor Mario Gomes da Stlva, que citou as se- 
gutntes palavras na Secao Cartas: "Uma re- 
vista de alta competSncia deve ser sempre 
elogiada e fatada. Como todos dizem, 6 uma 
revista MADE IN BRAZIL". 
Valmir Rodrigues da Stlva 
Sa"o Bernardo do Campo-SP 

Gostaria de parabenizi-los pela MICRO 
SISTEMAS nP 28, de Janeiro de 84, que 
real men to trouxe programas muito interes- 
santes para todos os ttpos de microcompu- 
tadores. Gostaria tambem de parabenizar o 
autor do programa "Pescaria em aguas 
eletronicas", o Sr. Nelson Hisashi Tamura, 
que, usando a criatividade e sua experiencia, 
fez um dtimo programa. Achei tambem 
muito bom o programa "Aventuras em Serra 
Pelada", s6 que nab me animei a digitd-lo. 
Parabens e que a revista MICRO SISTEMAS 
se desenvolva por muitos e muitos anos. 
Henrique A. Vianna 
Pelotas ~- RS 

Sou ha alguns meses proprieta~rio de um 
TK-85, o qual comprei para obter auxflto no 
c£lculo estrutural em Engenharia Civil. MS 
conseguiu despir por completo a impressab 
sSria e antipdtica que eu tinha dos microcom- 
putadores pessoais, conduzindo-me ao fasci- 
nante mundo dos jogos... Envio-lhes meus 
sinceros parabens e que continuem a publi- 
can aplicativos e jogos (principalmente em 
Assembler) para a linha Sinclair. 
Dilson Lara Junior 
Sao Jos6 dos Campos — SP 

Parabenizamos esta conceituada revista 
pela decisSb de incluir uma SecSo dedicada 
as aplicacoes do micro no radioamadortsmo. 
Sentimo-nos duptamente contentes: pela 
id£ia e pela escolha do respons^vel, Roberto 
Quito de Sant'Anna, PY 1 DWM, nosso 
companheiro. Awards Manager e Membra 
do Conselho Deliberative do CWRJ (...). 
Ronaldo Curi Gismondi 
Secretdrio Geral do CWRJ 
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Como usuario de micros da linha Sinclair 
h£doisanos, parabenizo MICROSISTEMAS 
por dedicar tantas pa~ginas a este sistema, 
que nao s6 tem o maior numero de aficio- 
nados entre todos os outros, como e" o mais 
acessfvel, realfstico e possui urn uni verso 
muito maior (tanto em software quanto em 
hardware). 

Adriano Giusfredi de A. Botelho 
Amparo — SP 
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Sou lettor de MICRO SISTEMAS e acho 
que 6 a revista mais completa sobre compu- 
tadores do Brasii. Gostaria de sugerir que vo- 
ces fizessem um cursode BASIC eum de As- 
sembler especialmente para criancas. 

Gostaria tamb£m que voces fizessem to- 
do ma's a avaliacao de um micro, e ainda que 
a cada seis mesas publicassem uma tabela 
com os principals micros e seus precos. 
Jorge Pablo Z. Rivera 
Salvador — BA 

Quero sugerir a publicaca"o de um Moni- 
tor Assembler {do tipo que f oi publicado em 
MS nP 23) para as linhas TRS-80 e Apple. 
Gostaria tambem que voltassem a publicar 
artigos e programas para a Tt-59. 

Sugiro tambe*m que publiquem umarepor- 
tagem sobre o TK-2000 Color, com todas as 
suas caracterfsticas: o microprocessador usa- 
do, o sistema operacional, quais perifericos 
que aceita e onde podem ser encontrados, se 
existem programas em cartuchos ROM... 
Tudo, enf im, sobre este equipamento. 
Miguel Angelo Henzo 
Sao Paulo — SP 

Visando ao aperfeicoamento e engrande- 
cimento da revista, gostaria de fazer a seguin- 
te sugestao: varias revistas de automoveis 
possuem uma sec£o sobre precos de vefculos, 
Que tal se MS tivesse tambem uma secao pa- 
recida, onde encontrar Tamos precos e outras 
caracterfsticas dos micros nacionais? A secao 
poderia chamar-se "Mercado dos Micros". 
Marco Tulio de O. Valente 
Vrcosa — MG 

Gostaria que a revista colocasse uma Se- 
cao Dicas s6 para equipamentos da linha 
Sinclair, pois nds, os usuaViosdestes equipa- 
mentos, sentimos muito a falta de publica- 
cSes realmente uteis, principatmente no sen- 
tido de aprender a programar em linguagem 
de maquina. E voces poderiam, na medida 
do possfvel, colocar tambem na revista um 
curso em linguagem de maquina para equi- 
pamentos da linha Sinclair, assim como foi 
feito com o curso de Assembler. 
Edison Bueno da Silva 
Jundiaf — SP 

Nao abusando da boa vontade com a qual 
Vs. Sas. tfim atendido aos seus leitores, gos- 
taria, se possfvel, de ver publicados pro- 
gramas em BASIC na a>ea contdbil, como: 
lancamentos contat>eis, contas a receber e a 
pagar, depreciacdes, balancete, balancos etc. 
Divo Machado dos Santos 
Sorocaba — SP 

Se possfvel, coloquem juntamente com o 
nome dos autores dos programas os respecti- 
vos enderecos e telefones para um maior e 
mais r£pido esclarecimento de supostas du- 
vidas existentes nos programas que eles edi- 
taram. 

Eduardo Lazarin Marques 
Sao Paulo — SP 



Sugiro a publicacao de programas aplica- 
ttvos compatfveis com o TK-85. 
Murillo E. Arizi 
Porto Alegre - RS 

Fui a uma banca de jornais procurer al- 
guma coisa sobre microcomputadores. jor- 
naleiro me ofereceu cerca de sete revistas, 
vistoriei todas e selecionei a melhor: era a 
MICRO SISTEMAS, os artigos publicados 
eram exatamente o que eu procurava. Para- 
benizo todos os produtores desta revista, 
uma publicaccto sensacional. Oesejava apenas 
que voces publicassem mais programas para 
computadores da Linha Sinclair. 
Marcelo Thomaz 
Santo Andre" - SP 

Gostaria de sugerir que publicassem o 
Micro Mercado (tanto para micros quanto 
para impressoras e outros perifericos) por 
bimestre ou trimestre. Acho tambem que ta- 
belas de f uncdes de varias linguagens seriam 
de grande utilidade para os principiantes. E, 
finalizando, sugiro tambe'm a publtcaca*o {bi- 
mestral ou trimestralmente) de todos os pro- 
gramas lancados no mercado. 
Nelson Junzi Nagamine 
Embu - SP 

Acho que voces poderiam criar uma Se- 
cao voltada para os micros compatfveis com 
o TRS-80, pois, proprietario que sou de um 
DGT-100, fiquei com "ciumes" do Apple 
por causa da Secao Sidra (muito bem feita 
pelo Sr. Horner). 
Robinson S. Pereira 
Rio de Janeiro — RJ 

Solicitaria aos caros amigos que,quando 
da publicacao de um programa, fizessem a 
necessaria explicacao sobre como se efetua 
o seu funcionamento (os iniciantes, como 
eu, f icam sem opcao). 
Jose" Minerva 
Sao Bernardo do Campo — SP 

Descobri que MICRO SISTEMAS era a 
revista de que precisava para o meu micro. 
Com ela ja" rodei va"rios programas que me 
ensinaram muitas coisas. Gostaria, entretan- 
to, de dar uma sugestao: publtquem um cur- 
so de Mnguagem de ma'quina para a linha 
Sinclair. 
Silvio Ferraz 
Piracicaba — SP 

Gostaria que fosse f urtdado um Clube de 
Software pela MS para trocas de idelas, co- 
nhecimentos e programas. Acho tambem 
que um curso de BASIC ministrado por vo- 
ces seria interessante. 
Wander M. Martins 
Itajuba" - MG 

Possuo um micro VIC-20, e para encon- 
trar artigos sobre ele e preciso comprar re- 
vistas importadas. Por isso, faco uma suges- 
tao: que em sua revista seja publicada uma 
pagina destinada a micros importados co- 
mo o meu. Acred i to que a vendagem aumen- 
taria muito, pois ha" um grande numero de 
pessoas que possuem micros importados. 

Entendo que sua revista procure fortale- 
cer a indiistria nacional, porem acho que o 
dinheiro que se gasta comprando revistas 
importadas poderia reverter para o mercado 
nacional. t? 

Marcos Andre" O. Parai'so 
Riode Janeiro-RJ 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida do 
poss f vel , v isb i I iz a- las. 
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COLA EM MENOS 
DE 30 SEGUNDOS. 



Colabloc - If coladora nacional com 

tempo total de operacao maximo de 

30segundos. 

Produto de mesa, compacto, simples e 

seguro, ideal para escritorios que nao 

exijam sistemas complexos de 

encadernagao. 

Perfeito para atender as necessidades de 

usuarios de computadores e graficas, 

cujo volume de trabalho de 

encadernagao n3o seja grande. 

Executa um trabalho limpo por n§o 

necessitar de contato manual com a cola. 

Nao exige instalacoes especiais, sendo 

apenas necessario uma tomada 
rnonofasica de 1 10 volts 50/60 Hertz. 
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EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 

Matriz: Rua Theodureto Souto, 308 - Cambuci - CEP: 01539:1 

PABX: 270-8244 -Telex: (011)36305- S8o Paulo - SP 

REPRESENTANTES TECNICOS E COMERC1A1S 

EMTODOO BRASIL. 



Se 4 dtfic/l evltd-los, vamos detecta*-lo$\ E para facilitara tarefa apresentamos 
uma rotina que local iza os erros de programacSo no Apple e compatt'veis 
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A rotina aponta-erros 



Carlos Alberto Diz 



Omaior trabalho na confeccSo de um programa nSO 
esta" em escreve-lo, mas sim em conseguir rodaMo em 
sua totalidade sem erros! Qualquer pessoa que tenha 
se proposto a escrever algo mais complexo do que 
um simples loop para impiimir os dfgitos de a 9 certamente 
ja descobriu esta grande verdade, Segundo a famosa lei de Mur- 
phy, sempre que puder haver um erro ele estara* la\ e o corold- 
rio acrescenta que sempre haverrf um erro a mais do que o es- 
perado. 

A te"cnica de depurar um programa de seus inevitaveis erros 
chama-se debugging, e adquirir habilidade nesta tarefa deve ser 
realmente o principal objetivo de qualquer um que deseje al- 
can9ar nfveis de complexidade mais elevados em seus progra- 
mas. Debugar programas, como se diz em computes, 6 por ve- 
zes uma drdua aventura, pois geralmente o erro se esconde no 
meio das linhas entre virgulas e aspas, escapando assim ate" ao 
olho mais atento durante pelo menos as primeiras 1 32 revisdes 
da listagem. Existem, adicionalmente, dois fatores agravantes: 

1) nem todos possuem uma impressora (no Brasil um investi- 
mento de porte consideravel) para listar o programa no papel 
e facilitar um pouco a humilhante busca do malfadado erro. 
Nao possuindo tal instrumento, o infeliz programador na"o tern 
nenhuma alternativa senSb passar horas olhando para o video 
at£ encontrd-lo, ficar estrdbico ou desistir; 

2) muitos programadores (os mais avancados por certo) desco- 
brem que 6 possivel obter-se alguma economia de mem6ria 
juntando varios comandos numa s6 linha, separando-os com :, 
como nos ensina qualquer manual de BASIC. Se 6 verdade que 
isto economiza memoria, tambem devemos reconhecer que 
esta tecnica torna muito mais vitorioso o esforco do erro em 
fugir ao olho atento (no inicio, pelo menos) do programador. 

No meio disso tudo, ^ preciso lembrar, no entanto, que o 
interpretador sempre nos ajuda um pouco com suas rotinas de 
error-trap e mensagens que nos dizem quando ocorre um erro, 
em qual linha e de que tipo se trata. Mesmo assim, saber em 
que linha hi um erro pode limitar o campo de busca, mas a 
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mensagem sobre o tfpo de erro & frequentemente ambigua ou 
nffo faz sentido algmn mesmo. Ale*m disso, no caso de linhas 
compactadas, cheias de instrucGes, o interpretador nffo diz exa- 
tamente onde est4 o erro (e as vezes existem mais de um), o 
que nos leva a concluir que o interpretador force pelo erro! 

DA PROCURA AO GRANDE ACHADO 

Lembro-me de ter encontrado, em algum momento de mi- 
nha vida, um interpretador de BASIC (se nao me angano num 
HP-2000F) que, quando detectava um erro, era t£o gentil que 
colocava uma flecmnha embaixo do comando errado ao listar 
a linha culpada. Lembrando-me disto, e remechendo no meu 
Apple hi algum tempo atris, descobri alguns enderefos interes- 
santes que, ocorrendo um erro, podem ajudar a encontrd-lo. 

Os enderecos (em decimal) 218 e 219 contem, respectiva- 
mente, o byte menos significativo e o byte mais significativo 
correspondentes ao mimero da linha onde existe um erro. £ 
daqui que o interpretador tira a informacSo que tffo graciosa- 
mente nos proporciona quando diz: "erro na linha tal". E 
ainda, e isto o interpretador na"o nos revela, os enderecos 220 
e 221 (tambem decimals) contem o endere?o do statement 
na linha que causou o erro (se este ocorreu no primeiro sta- 
tement, serd necessano acrescentar 5 a este valor), ou seja, diz 
em que parte da linha procurar. Apesar de na"o ser a coisa mais 
clara do mundo, esta informa9a'o pode ser usada de vdrias for- 
mas para localizar o erro. 

Descobertos estes endere§os, e depois de muito trabalho in- 
grato, consegui fazer uma rotina que mais ou menos me infor- 
mava a posica"o de um erro na linha, mas a rotina nffo era realo- 
cavel e continha valores que variavam em furtcffo do tamanho 
do programa ao qual estivesse pendurada. Isto fazia com que 
cada vez que o programa tivesse de ser alterado fosse necessd- 
rio alterar tambem estes valores na rotina. Enfim, era tffo com- 
plicada e trabalhosa de usar que, em minha opiniffo, os beneff- 
cios que trazia nffo compensavam o trabalho que dava. 

MICRO SISTEMAS, maio/84 
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ONERR GOTO 60000:EFT = 63:T*256 



60000 E = FEEK<220>+T*FEEK<221):E = E + 5*<PEEK<E)=0>:V = FEEK<E>:POKEE,EPT:L$ = RIGHTS 
("0000 ,, +STR$<PEEK(218) + T*PEEK(219»,5>:L*PEEK(121)+T*PEEK(122) + 49:FOR 1 = 1 
TO 5:POKE L + I,ASC<MID5<L$,M>>:NEXT:LIST 00000:POKE E,V:POKE 216,Q:RESUME 



Figura 1 
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Recentemente, porem, chegou as minhas mffos uma rotina 
em Applesoft - cujo autor desconheco - que d um verdadeiro 
ovo de Colombo, pois traz uma soluc£o muito engenhosa para 
a utilizacffo da informacSb que existe naqueles endere$os que 
mencionei. £ tamb^m um 6timo exemplo de c6digo auto- 
modificante, uma te'cmca capaz de arrepiar qualquer fan^tico 
de programacSo estruturada, pois e* realmente a antitese da 
estruturacffo. 

Rapidamente: c6digo auto-modificante e um c6digo que, ao 
rodar,^ altera um ou mais comandos nele contidos, ou seja, o 
conteudo de uma linha de programa € alterado uma ou mais 
vezes ao rodarmos o proprio programa. Algo muito parecido 
com levantar-se pelos lacos dos sapatos. Tal recurso, impossivel 
de ser concebido na mente organizada e rfgjda dos fandticos 
da estrutura, permite fazer coisas do arco da velha, mas como 
tudo que 6 potente e" tambem perigoso, pode, quando mal 
utilizado, destruir programas e levar o programador despreca- 
vido k loucura. 

Outra grande vantagem da rotina e" o fato dela ser realocavel 
(ao contrario da que eu hwmbofado), isto e, ela pode ser pendu- 
rada em qualquer lugar e em qualquer programa sem que sua 
posica'o ou alteracoes no programa afetem seu funcionamento 
(da rotina). Em outras palavras: a rotina nao contem endere- 



$os imphcitos ou explfcitos em valores absolutos e sim somen- 
te em valoreslrelativos. 

COMO USAR A ROTINA 

Tudo que voce's precisam fazer e* digitar o c6digo em seus 
micros (somente Apple compativeis, por enquanto) na exata 
forma como esta* listado na figura 1 . Mas atencffo; e importante 
que a forma seja exatamente idgntica, especialmente no que 
concerne a linha 60000, pois de outra maneira certos valores 
precalculados de displacement podera*o perder sua va^dez. 

Inserindo o programa a ser debugado entre as linhas 1 e 
60000 e rodando-o normalmente, caso ocorra um erro voce* 
receberd, alem da costumeira mensagem de erro, uma listagem 
da linha condenada na qual tera" sido incluido um ? no comeco 
do statement que conte'm o erro. 

Se voce nffo gostar dos niimeros 10 e 60000 que eu atri- 
bui" as linhas, mude-os a vontade, contanto que o seu progra- 
ma fique entre as duas. Nunca modifique, por^m, o conteiido 
da linha 60000, a menos que voce saiba o que esta" fazendo, 
senffo corre o risco de ver o seu programa alterado de maneira 
imprevisfvel e incn'vel! Se tambem na"o lhe agradar (mas vai w 
ser dificil assim...) o ?, substitua-o por um ! ou um > ou o 
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A ROTINA APONTA-ERROS 



Analisando a rotina 



Linha 10 

• Estabelece que, em caso de erro, o coniple devera passar oara 
a linha 60000. ■ 

• Atribui a variavel EPT o valor 63, que cbrresponde a ASC(?). 

• Atribui a variavel T o valor 256 (numero eompu-cabaHstico). 

Linha 60000 , 

• Atribui a variavel E o valor correspondence ao pointer de exe- 
cuca"o, o'u seja, a posicao de comeco do statement que contem o 
erro. 

• Caso o erro esteja no primeiro statement da linha, fazendo 
com que haja urn CHR$(0) na posigao E, ou seja, PEEK(E)= 0, 
entao acrescenta 5 ao valor de'E tomando-o correspondents a 
posicao do primeiro carater do primeiro statement da linha. 

• Atribui a variavel V o valor contido na posicao E, isto e', copia 
para A o ASC do carater apontado por E (isto para repo-lo em seu 
lugar no fim de nossa rotina). 

• Finalmente, coloca na posicao apontada por E (no lugar do 
carater que mencionamos acima) o valor EPT, que no nossa caso 
corresponde ao ASC de ?, certo? 

• Atribui a L$ os primeiros cinco caracteres contados a partir da 
direita do que resulta da soma de 0000 com a transposicao para a 
string do valor contido nos enderecos 218 e 219, ou seja, o niime- 
ro da linha, garantindo sempre ter 5 digitos e eolocando zeros a 
esquerda quando este for inferior a 10000. 

• Atencao, pois aqui esta o grande golpe de genio e o detalhe de 
auto-modifica£a*o que mencionei : atribui a variavel L o valor 49 + 



o valor contido nos enderecos 121 e 122. Estes endere$os apon- 
tam em^ qualquer momento para a posicao inicial do statement 
que esta sendo executado no momento. Nestc caso, quando for 
executada a instrucao, eles apontarao para o : que precede 
L= PEEK(121)+T*PEEK(122). Somando 49ao valor destepointer, 
obtemos entao a posicao do primeiro no statement LIST 00000 
um pouco mais adiante na mesma linha. Se contarmos quantos Ca- 
racteres ha entre o primeiro : nesta linha e o primeiro em LIST 
00000, lembrando que os comandos de BASIC correspondem a 
um so carater, veremos que ha exatamente 49. 

• O loop, executado 5 vezes, faz nada mais nada menos que subs- 
titute os 00000 no statement LIST 00000 (seguinte) pelo conteu- 
do de L$, ou seja, o numero da linha mais algUns zeros a esquerda 
conforme necessario. Em outras palavras: a instrucao LIST 00000 
Originaria do programa e' alterada para LIST XXXXX, onde 
XXXXX e o numero da linha do erro, Depois de executado o 
loop, se voce listar o programa vera que realmente foi alterado o 
codigo da linha 60000! 

• O statement LIST XXXXX, quando executado, faz exatamente 
o que diz a linha numero XXXXX que contem o erro, mas como 
esta linha havia sido tambe'm modificada (colocamos um ? no co- 
medo do statement criminal), ela sera listada junto com a mensa- 
gem dc erro, contendo um ? para nos indicar onde encontra-se o 
erro. 

• Finalmente, coloca-se de voita no lugar do ? o que Id havia an- 
teriormente e que , lembrem-se, havfamos guardado em V. 

• Resseta-se o pointer em 216, usado pela rotina de error trap. 



que voce quiser, alterando o valor atribuido a EPT na linha 10. 
Por exemplo: 

10 ONERR GOTO 60000;EFT = 33:T = 256 

fara eom que apareca um ! denunciando o statement culpado 
pelo erro. 

Voce percebera' ainda que, quando o erro estiver do segun- 
do statement da linha para frente, o ? aparecera no lugar do : 
que separa o statement culpado do statement precedents; po- 
rem, quando o erro estiver no primeiro statement da linha, o 
? aparecera no lugar do primeiro cara"ter da linha, logo ap6s o 
numero da mesma. 

Este pesqueno defeito deve-se a razoes intn'nsecas a forma 
como o interpretador guarda as instru96es do programa e em 
particular ao fato de que toda linha comeca com um numero 
para o qual s3o reservados 5 bytes, vindo logo a seguir uma ins- 
trueffo, seja um nome de variavel, um token ou sei la". Quando 
o interpretador estd executando o primeiro statement de uma 
linha, o pointer de seqiiencia de execucao aponta para o pri- 
meiro byte do numero da linha (5 aquem da posica"o do pri- 
meiro carater da linha depois do numero), enquanto que na 
execuC/Sb do segundo statement de uma linha em diante, este 
pointer aponta para a posi§a"o onde esta contido o : que separa 
este statement do anterior. Como a rotina coloca o 7 na 
posicSo apontada por este pointer (ou esta +5 quando se trata 
do primeiro statement), explica-se a-razfro do ? estar onde esta. 

Vamos entender melhor com um exemplo? Inclua esta 
linha: 



10000 PRINT "O ERRO ESTA' NO PROXIMO 

5TATEMENT":FRNT "A PALAVRA PRINT 
ESTA 1 MAL ESCRITA" 

e rode o programa. Se voce tiver feito tudo direitinho, na tela 
aparecera: 

SYNTAX ERROR IN LINE 10000 



10000 PRINT"0 ERRO ESTA' 
STATEMENT"' PRNT 
ESTA' MAL ESCRITA" 



NO PROXIMO 
'A PALAVRA PRINT 



Note o ? no lugar do : antes de PRNT, indicando onde esta" 
o erro. Se isto n5b acontecer, revise a linha 60000 buscando 
erros de grafia ou diferencas com respeito a figura 1 e volte a 
tentar. Quando conseguir, liste o programa para ver como na 
linha 60000 agora tern LIST 10000 no lugar de LIST 00000. 

Seguindo as instrugSes, eu garanto que funciona, e tenho 
certeza que sera de grande ajuda haquelas longas segSes de 
debugging. m 



Carlos Alberto Diz 4 formado em Engenharia E/etrdnica pela Universi- 
dade de Dundee, Escdcia, e possui Mestrado em AdministragSo de Em- 
presas pelo INSEAD — Instituto Europeu de AdministragSo de Empre- 
sas, Fontainebleu, Franpa. Atualmente 4 sdcio-genente da Compusys- 
tems do Rio de Janeiro, uma system-house dedicada £ consultoria in- 
forma'tica e confecpao de software sob medida. 
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PROCURE QUEM 
REALMENTE ENTENDE. 

MICROMAQ 

R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-^088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publicagoes 
Especializadas, Cursos p Manutengao de Equipamentos, 
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■ A800 DISK CONT ■ MULTIFUNCTION CARD 

An,x,KHCTn^- MICROCRAFT MICROCOMPUTADORES LTDA. 

ADMINISTRACAO E VENDAS: AV. BRIG. FARIA LIMA, 1 .664 - 3° ANDAR - Q 316 - CEP 01459 
FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP BRAS IL 




Inclusive para quern nSo%# 



preasa comprar 10 disquetes 
deumavez. 



Datalife apresenta seu album duplo: uma 
embalagem adequada para quern precisa 
de um ou dois disquetes agora e so vai 
precisar de outros daqui a algum tempo. 
Em vez de voce ficar comprando disquete 
solto por ai, que passa de mao em mao, 
com o album duplo voce tern toda a 
seguranca que existe. 



Ele content apenas dois disquetes 

evemlacrado. 

E o que tern dentro, voce ja conhece: 

Disquetes Datalife com certificacao 

critica, com desempenho muito alem 

das normas tradicionais, e 100% livres 

de erros. 

Disquetes Datalife- na embalagem 

normal ou no album duplo, a garantia 

total de um rrome que e lider mundial em 

midia magnetica flexivel. 




\ferbatim 



® 



mmm 



¥°nnte mUla v f rio$ f ontos - « de repentepodeperde-los todos\ O jeito 
e cont/ar na sorte, nao arnscar muito e deixar rolar os dados no PC- 1500 



Groan: os dados 
estao em jogo 



Jose Roberto Cottim 




Ndo Vrfsnn t q?' QU ^ ? d ?. pte ' , do L ™el II BASIC para o BASIC 
It £ °° da ( Shar P < Rad '° S1 ^ck PC 2). fi 2 questfo de adicio- 
(lli "" r ? tinas exclusivas do PC-1500 para dcjxar os orgulhosos pot 
suidores dcste computador de bolso mais orgulhosos ainda 

Voce e o computador possuem dois dados para jogar. programa 
come ? a perguntando ao jogador com quantos pontes ele gostaria que o 
jogo terminasse - qualquer valor entre 50 e 100 dara uml otima pVrti- 
dd, c ganha qucm conseguir atingi-lo primciro. tm segiiida, o computa- 
dor joga uma moeda para cima, sorteando qucm dara inirio a partida 
™\ POd£m S ? r passados de um P ara o outro de duas formas- 

ioS Z TTp!? e £ ? C " ianeira mais^drasfica. Sc em uma determinada 
IToLTu ^ U \ 6 l d0S m ' drcai U nSo s6 cIes Passarao para o adversa- 
f ^rJn ,?, H^ bem r t ? d ° S ° S P ° nt0S que voc6 *=umulou "aquela rodada 
ficarao perdidos. E tern ptor; se os dois dados marcaicm 1, todo o scu 
placar ira a zero, alem, e claro, de voce perder a vez (voce podera perce- 
ber que o numero I foi rcprescntado por uma cerinfm triste loFsTL 
sim mesmo que voce ira se sentir). ' 

Para o computador escolher, na vez dele, se passara os dados para 
voce ou se continuara a jogar, ha uma rotina a partir da linha 900 Na 



sua vez, logicamente, todo o seu bom senso c perspicacia sc farao ncces- 
sarios, uma vez que o computador nao e bobo e ira atras de voce sc a 
distancia entre os dois placarcs for muito grande. Os pon^ de uma ro^ 
dada, portanto, so passarao a fazcr parte do placar geral quando voce 
ou o computador, passar os dados para o outro espontancamente 

n„i^t; in partlda ° ven( i cdor « premiado com uma mensagem, 

cujds letras geram uma musiquinha cibemetica especial. Logo depois o 
qSn7 £ lnVertld ° por inter ™dio de uma rotina em lingufgem de mi- 

(voS vir P rccS , dSn; empo ' digite Ioeo a listagem e tenha boa &oit * 



Jos4 Roberto Franpa Cottim estuda Engenharia de Telecomunica&es 
na Unjversidade Federal Fluminense. Trabalha na FOCO firma promo- 
tora de feiras, exposipoes e congressos, e desenvolve sistemas para mi- 
crocomputadores desde 1981. 



100: 
110; 
i 15: 

120: 
125: 
130: 

135: 

140: 

150: 

160: 

170: 

180: 

200: 

210: 

220: 

230: 

240: 

250 

260 

270 

280 

290i 

295i 

300i 

310: 

320: 

330: 

340 

350 



"D'CLEAR :*AIT O:RAND0fl :CL5 

«»'7F41656?65417F- i B*-"7F4l45415l417F":CJ-"7F41454951417F- 

D$=;7D41554155417F":E*="7F4(554955417F":F$="7F416B416B417F« 

;«"MO00MOM'iH»«'0000M(l0W*fI$-»00lCICIC0O-|J*r-003E3E3EM 
«■ 7f7F7F7F7F7F7F H :H*='0s dados psssai ':N$="para " 
MM 7,11,1,11,7,-1,0 

RESTORE 

INPUT "Final ei quantos pontos ' ",H 

P*='Voce":PfiIHT "Sorteando') :Q*=P*+ n cwici'ill-RHD 2 

IF fl=2LET «="Eu CDieco 1 

WAIT 25:F0R I=1T0 SiPRINT V;;NEXT I 

WAIT 200:PRIKT »;!»•* jo 9 ando":T-0fIF 0-2THEN 300 

JWIT 50i CLS :F=0:D=1jPRIKT P*fO*;A;T:G0SlJ8 400:60SUB 700 
■IF FMWIHT IMiPRINT Hi; N«; >.i.- . GOTO 300 

MIT OsCURSQR OiPRINT "<J>oga ou <P)assa ">*> 

READ K:IF X=0REST0RE : READ I 

iREAD y,Z:F0R WTO YSTEP Z:60SU8 250iNEU I:60TO 230 
!C=116iR=IfS0SUB 600 
:Q*=INKEY* MF Q*»""R£TURN 
!IF0M"J"THEN 200 
iIF 8«>'P'RETURN 

CLS^:A«A+T:MAIT 200:PRINT P$;" tei-fAsSOSUB 800 

T*0:DsZ 

KAIT 50:F=0:PRINT "En" ; 0*f B; T:60SUB 400:GOSUB 700 

IF F>0THEN 350 

iBOSUB 900:WftIT 100MF XPRINT 'Jogarti novaMftte'ieOTD 310 
:B=B+T:PRINT "Vou parar agora. Tenho";B:G0SUB BOO 
{PRINT H$;N$!\oce":T«0:60TQ 200 



Groan 



400 
410 
420 
430 
440 



450 
500 
600 
700 
710 
720 
800 
BIO 

620: 
830: 
840: 
B50: 
B51: 
860: 
900: 
910: 
920i 
930: 
940: 
950: 
960; 
970: 



:0=RND 6:S»RND 6 

:Ol35:R=0:60SUB 60Q;O145:ft=>S:60SUB 600:6PRmT 
:IF 0-1LET F-1:S0SU8 500 
:IF S=1LET F»F+1:60SUB 500 

:IF F-2NAIT 0:PRINT "ZER0':F0R I=0T0 1:0EEP 1,60-1*10,400- 
KEXT I: BEEP 1,35,600 
: RETURN 

:BEEP l,BO,100:RETUftN 
' BCURS0R CiSPRINT fi* (R) ;: RETURN 
:T=T+0+S:IF F)0LET T»0 
:IF F«2LET *(0)=0 
: RETURN 

:IF KDXHRETURN 

ift*='A FERft aqui ganh'iSM'ou de novo": 
V*»P*+" ganhou - He":N*="ra sorte"" 
iNAIT 0:IF B>=HPRINT R*;S*:J=2904o" 
IF A>-MPRINT V*f«*:J=29104 
FOR I-OT025:BEEP t,PEEK (J+I) ,100i«EXT I 
POKE J,72,11B,74,0, 5,189,255,65,78,78,153,8 
POKE ^12,76,119,139,6,72,119,74,0,158,18,154 
FOR I-20TO 1STEP -HCALL J:F0R K"0TO IiNEXT KiKEXT IiEND 
V=B+T:IF V>-**THEM 960 
IF t(-A<10THEN 970 
IF B>»ALET L«T/25:60T0 950 
IF V<ALET L«T/35:60T0 950 
L=T/30 

IF RND 0>LTHEN 970 
X*0: RETURN 
(=1:RETURN m 

m 



AL6ARISH0: 
CARACTER: 
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Programas 
que raciocinam 



Nosartigos InteligSncia Artificial I e \\,publicados f 

respect ivamente, nos numeros 29 e 30 de MICRO SISTEMAS, abordamos a importancia 

das tecnicas de programacao dejogospara o desenvolyimento da Inteligencia 

Artificial, exemplificando com umjogo inteligente para a I in ha TRS-80. Neste 

numero falaremos sobre os sistemas especialistas, mat's uma prova do 

que a Inteligencia Artificial 6 capaz. 



Antonio Costa m Andr4 Gurgel 



Digamos que voce queira es- 
crever urn programa capaz 
de efetuar uma investigac^o 
policial como aquelas que 
ocorrem em hist6rias de detetive. Seu 
programa pode realizar esta tarefa racio- 
cinando como Sherlock Holmes ou co- 
mo os detetives de Agatha Christie. 

O raciocihio usado por Sherlock Hol- 
mes 6 denominado progressive Holmes 
parte de fatos e vai deduzindo outros fa- 
tos atd chegar a solucab do problema no 
qual ele esta" trabalhando . Ja* Hercule Poi- 
rot, o famoso detetive belga criado por 
Agatha Christie, usa o raciocihio regres- 
sive Poirot parte de uma lista de hip6- 
teses e procura reunir fatos que Ihe per- 
mitam concluir que uma das hip6teses 6 
verdadeira. 

Um dos maiores exitos alcan9ados 
pela Inteligencia Artificial foi a constru- 
ct de programas que, usando ratioci- 
nio regressivo, conseguiram realizar tra- 
balhos em medicina, geologia, quimica, 
engenharia de manutencao etc. Tais pro- 
gramas sab conhecidos por sistemas es- 
pecialistas. 

O primeiro sistema especialista a con- 
quistar o interesse do publico foi o MY- 
CIN, escrito em LISP pelo medico E. H. 
Shortliffe (o MYCIN 6 capaz de diagnos- 
ticar doen9as infecciosas e indicar o tra- 
tamento). Nenhum sistema especialista, 
entretanto, causou mais entusiasmo do 
que o PROSPECTOR. A finalidade des- 
te programa e" localizar areas apropria- 



das para a prospec$ao geol6gica e seu 
bom desempenho nesta tarefa foi com- 
provado em 1980, quando ele descobriu 
importante mina de molibdenio no Esta- 
do de Washington. 

As aplica?oes dos sistemas especialis- 
tas sab intimeras. A avalia9ab estdtica do 
Belle, por exemplo, e" realizada por um 
sistema especialista. Para quern nab sa- 
be, Belle e* um programa capaz de jogar 
xadrez quase a nivel de mestre national. 
Roger Schanck esta" comercializando sis- 
temas especialistas capazes de ajudar as 
pessoas a escrever testamentos e a preen- 
cher formularios de imposto de renda. A 
GE encomendou um programa para diri- 
gir a manutenjao de suas locomotivas. 
Um programa conhecido como ONCA- 
SYN e* usado para fazer o acompanha- 
mento de pacientes submetidos a qui- 
mioterapia. Em Portugal, L. Pereira e 
colaboradores construiram o ORBIS, 
um programa que entende Portugues e 
indica a melhor forma de usar recursos 
naturais. Poderfamos fornecer muitos 
outros exemplos, mas acreditamos que 
estes ja" sab suficientes para convencer o 
leitor da importancia dos sistemas espe- 
cialistas. 

A finalidade deste artigo e" mostrar 
como os sistemas especialistas funtio- 
nam. Para isto, fornecemos um pequeno 
programa capaz de realizar uma investi- 
gagab policial. Estudando este progra- 
ma, o leitor entendera* o mecanismo do 
raciocmio regressivo. 



Gostarfamos de frisar que os sistemas 
especialistas reais sao centenas de vezes 
mais complexos do que o fornecido aqui. 
Nosso sistema, por exemplo, nab conse- 
gue trabalhar com informafoes inexatas 
ou incompletas e isto o torna inutil para 
atacar problemas reais. Se o leitor neces- 
sita de um sistema especialista para uma 
aplica^ao real, aconselho-o a lerosvarios 
artigos que safram na revista Artificial 
Intelligence sobre o assunto. 

TRANSFORME SEU 
COMPUTADOR NUM DETETIVE 

O sistema especialista que iremos dis- 
cutir trabalha com tr€s Jistas: a lis- 
ta de hipoteses, a lista de fatos e a lista 
de regras. No infcio da investiga9a"o, a lis- 
ta de fatos pode estar vazia ou conter in- 
formacoes conhecidas de antemab. No 
decorrerdainvestiga9ao, o programa per- 
guntara' se certas frases sao verdadeiras 
ou falsas. Dependendo da resposta do 
usuario, ele colocara" a frase ou a nega- 
9&b da frase na lista de fatos. 

A lista de hipdteses contem, como 
seu nome indica, as hip6teses que o sis- 
tema deseja demonstrar ou refutar. A lis- 
ta de regras, da qual hi um exemplo na 
Listagem 1, e* dividida em blocos denomi- 
nados regras. Dentro de cada regra, a sen- 
ten9a que vem antes do conditional SE 
e* chamada conseqiiente e as senten9as 
que vem depois do SE sao chamadas an- 



14 



MICRO SISTEMAS, maio/84 



Listagem 1 - 
Regras e hipdteses 



LI ST A DE REGRAS 



( < (A CAMAREIRA RQUBOU COLAR) 
SE 

(A CAMAREIRA PRECI5AVA DE DlMHEIRO) 
(ERA FACIL VENDER O COLAR) ) 

< (A CAMAREIRA PRECISAVA DE DINHEIRD) 

SE 

(A CAMAREIRA GASTAVA MUITO) 

(A CAMAREIRA BANHAVA POUCO) > 

( (A BRALHA ROUBDU CDLAR) 

SE 

(A JANELA ESTAVA ABERTA) 

<D COLAR ERA BRILHANTE) 

(ERALHAS GOSTAM DE COI5A5 BRILHANTES) ) 

( <A JANELA ESTAVA ABERTA) 
SE 

(NAO ESTAVA CHOVENDO) 
(ESTAVA FAZENDO CALDR) ) 

( (ESTAVA FAZENDO CALOR) 

SE 

(ERA VERAO) > 

( <GS CIGAN05 ROUBARAM O CDLAR) 

SE 

(LiM CIGANO ENTRQU NA CASA) 

(UM CIGANO FQI VISTO COM □ COLAR) > 

( (A CAMAREIRA GANHAVA POUCO) 

SE 

(O SALARIO DA CAMAREIRA ERA BAIXO) 

(A UNICA FONTE DE RENDA DA CAMAREIRA 

ERA SALARIO) ) 

( (UM CIGANO ENTROU NA CASA> 
SE 

(HAVIA RASTROS DE BOTAS NO JARDIM) 
(CIGANOS SEMPRE U5AM SOT AS) 
(ARENAS CIGANOS USAM 80TA5) ) ) 



LISTA. DE HIPOTESES 



( (A CAMAREIRA ROUBOU O COLAR) 
(OS CIGANOS ROUBARAM O COLAR) 
(A GRALHA RQUBDU D COLAR) ) 



tecedentes. Quando o comequente de 
uma regra e* igual a uma hipdtese, a regra 
e* dita relevante para a hipdtese. 

algoritmo usado para estabelecer 
se uma hipdtese 6 verdadeira ou falsa £ 
denominado VERIFIQUE e esta" descri- 
to no box anexo. Nos o implementamos 
em BASIC (listagem 2), LISP (Listagem 
3) e LOGO (Listagem 4). LOGO 6 urn 
dialeto do LISP usado para ensinar te*c- 
nicas b&icas de Inteliglncia Artificial a 
criangas. Podemos dizer que LOGO e 
LISP sao praticamente iguais. 

COMO USAR OS PROGRAM AS 

A primeira coisa a fazer 6 digitar o 
programa que estiver na linguagem de 
sua preferencia. Se voce* for usar o pro- 
grama em LISP no Apple II, digjte antes 
a fun$ao DEF. Se voce* usar o programa 
em LISP num TRS-80 como o inte*rpre- 
te da Supersoft, nSo tecle a definicao de 
DEF. 

















Listagem 


I 2 - 


BASIC 






10 REM SISTEMA ESPECIALISTA 


1260 


FOR IJ = 1 TO IH 




20 REM LINBUAGEM: BASIC 


1270 


H = HIP(IJ): GOSUB 5000 




30 REM COMPUTADOR: APPLE ri 


1280 


IF T2 = 1 THEN U = IH 




40 REM AUTOR: ANTONIO COSTA. 


1290 


NEXT IJ 




SO REM 


1300 


IF T2" = THEN PRINT "NENH 




60 REM *********************** 




UMA HIPOTESE PODE SER VERIFI 




70 REM DESCRICAO DE VARIAVEIS 




CADA" 




SO REM *********************** 


1310 


IF T2 = 1 THEN PRINT "A HI 




90 REM 




POTESE "JFR*<H>; N E' VERDADE 




100 


REM FR*: FRASES. 




IRA" 




110 


REM HIP: PONTEIROS PARA HIPO 
TESE5 ARMAZENADAS EM FR* 


1320 


PRINT "APERTE QUALQUER TECL 
A PARA CONTINUAR" 




120 


REM FT: PONTEIROS PARA FATOS 


1330 


GET A* 






ARMAZENADOS EM FR* 


1340 


RETURN 




130 


REM CNSQ: PONTEIROS PARA OS 
CONSEQUENTES ARMAZENADOS EM 


1350 


REM *********************** 






FR*. 


1900 


REM ********************* 




140 


REM AN: NUMERO DE ANTECEDENT 


1950 


REM ROTINA DE INICIALIZAR 






ES DA REGRA CUJO CONSEQUENTS 


2000 


IR = 0:iH = 0:IT = 0:rg = 0: 






EH APONTADO POR FR*. 




rs = o:pt = 




150 


REM OS ANTECEDENTES SAO POS 


2010 


RETURN 






TOS EM FR* LOGO APOS OS CONS 


2015 


REM *********************** 






EGUENTES. 








160 


REM RL: PONTEIROS PARA AS RE 


2seo 


REM ********************* 






GRAS RELEVANTES. 


2590 


REM == GRAVA REGRAS ===== 




170 


REM ST: PILHA PARA SIMULAR R 


2600 


D* = CHR* (4): REM CTRL-D 






ECURSIVIDADE, 


2601 


PRINT D* 




ISO 


REM IR: NUMERO DE FRASES. 


2605 


PRINT D*;"OPEN REGRAS" 




190 


REM IH: NUMERO DE HIPOTESES. 


2610 
2615 


PRINT D*J "WRITE REGRAS" 
PRINT RG: PRINT IR 




200 


REM IT: NUMERO DE FATGS. 


2620 


FOR I = TO IR 




210 


REM RG; NUMERO DE REGRAS. 


2625 


PRINT FR*(I> 




220 


REM RS: NUMERO DE REGRAS REL 


2630 


NEXT I 






EVANTES. 


2635 


FOR I = TO RG 




930 


REM *********************** 


2640 


PRINT CNSQ(I): PRINT AN ( I ) 




940 


REM == ESPECIALISTA ===== 


2643 


NEXT I 




1000 


REM 


2650 


PRINT D*{ "CLOSE REGRAS" 




1010 


DIM FR*(IOO) ,HIP(20) 


2665 


RETURN 




1015 


DIM FT (100) , CNSQ (50) 


2670 


REM *********************** 




1020 


DIM RLC50) j,ST<100) 


2790 


REM ********************* 




1023 


DIM AN (50) 


2795 


REM == LER REGRAS DO DISCO 




1030 


IR = 0:IH = 0:IT = 


2B00 


D* = CHR* <4> 




1035 


RG =■ 0:RB = 


2803 


PRINT D*;"OPEN REGRAS" 




1040 


HOME 


2B10 


PRINT D*!"READ REGRAS" 




1050 


PRINT " ** SISTEMA5 "5 


2815 


INPUT rg: INPUT IR 




1055 


PRINT "ESPECIAL I STAS **" 


2B20 


FOR I = TO IR 




1060 


PRINT "ESCOLHA UMA DAS "! 


2323 


INPUT FR*(I) 




106S 


PRINT "PDSSIBILIDADES ": 


2B30 


NEXT I 




1067 


PRINT "ABAIXO" 


2835 


FOR I = TO RG 




1068 


PRINT : PRINT 


2840 


INPUT CNSQ(I): INPUT AN ( I > 




1070 


PRINT "A - INICIALIZAR" 


2845 


NEXT I 




IOBO 


PRINT " B - LER FATOS DO T 


285S 


PRINT D*; "CLOSE REGRAS" 






ECLADO" 


2B60 


RETURN 




10B3 


PRINT " LEITURA DE FAT 
OS E' GPTATIVA" 


2870 


REM ******** *************** 




1110 


PRINT " C - LER HIPOTESES 


2900 


REM ********************** 






DO TECLADO" 


3000 


REM == DESCREVE RACIOCINIO 




1120 


PRINT " D - LER REGRAS DO 


3010 


PRINT "USANDO A REGRA: " 






TECLADO" 


3020 


PRINT FR*(CNSQ(RL(J) > ) ; " SE 




1150 


PRINT " E - LER REGRAS DO 




"f 






DISCO" 


3030 


FOR K = 1 TO NA 




1160 


PRINT " F - GRAVAR REGRAS" 


3040 


PRINT " ";FR*(CNSB(RL<J) ) + 




1170 


PRINT " G - INVESTIGAR HIP 
OTESES" 


3050 


IF (K < NA) THEN PRINT " E 




1172 


PRINT " H - ESVAZIAR LISTA 


3060 


NEXT K 






DE FATOS" 


3070 


PRINT 




1173 


PRINT " I - ESVAZIAR LISTA 
DE HIPOTESES" 


30SO 


PRINT "CONSEGUI PRDVAR QUE 
"JFR*(CNSG(RL(J) ) ) 




1174 


PRINT " J - ADICIONAR NOVA 


3090 


RETURN 






S REGRAS" 


3100 


REM *********************** 




1176 


PRINT " K - IMPRIMIR FATOS 


3900 


REM *****************#*#** 




1177 


PRINT " L - ABANDONAR PROG 


4000 


REM == INVESTIGUE ===== 






RAMA" 


4010 


PRINT "A HIPOTESE ABAIXO E' 




1180 


GET A* 




VERDADEIRA? (S/N) " 




1190 


OP = ASC <A*> - 64 


4O20 


F* a FR*(H) 




1200 


IF <0P < 1) OR (OP > 12) THEN 


4030 


PRINT F4 






11 SO 


4040 


INPUT RESP* 




1210 


ON OP GOSUB 2000,6500,6000, 
7000,2800,2600, 1240, 12000, 12 


4050 


IF RESP* = "S" THEN GOSUB 
9000: T2 = 1: RETURN 






100,7020, 12200 


4060 


IF RESP* = "N" THEN T2 =■ 0: 




1212 


IF OP < 12 THEN 1040 




GOSUB 8000: GOSUB 9000! RETURN 




1215 


REM ********************** 








1220 


END 


4070 


PRINT "POR FAVOR, RESPONDA 




1230 


REM *********************** 




S OU N" 




1232 


REM * ********* ************ 


4080 


GOTO 4000 




1234 


REM == PRGVEUMA ====== 


4100 


REM *********************** 




1240 


IF IH = THEN PRINT "NAO 


4700 


REM ************ *♦******#* 






TENHO HIPOTESES PARA TRABALH 


4910 


REM == VERIFIQUE ==,=== 






AR-": PRINT "VOCE NAO PODERI 


5000 


REM VERIFICA SE HIPOTESE E 






A ME FORNECER ALGUMAS?": GOSUB 




' VERDADEIRA: ARGUMENTO EM H 






6000 








12S0 


IF RG = O THEN PRINT "NAO 


5010 


REM RESPOSTA EM T2 






TENHO REGRAS PARA TRABALHAR. 


5020 


F* = FR*(H>: GOSUB 8500 






": PRINT "VOCE NAO PODERIA M 


5030 


IF Tl = 1 THEN T2 = l: GOTO 






E FORNECER ALGUMAS?": GOSUB 




5330 




7000 


5040 


GOSUB SOOO: GOSUB 8500 1 j,> 



H 
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PROGRAMAS que raciocinam 



(continua^So Listagem 2 - BASIC) 



3050 

5060 

5070 

50B0 

, : 5090 

5095 
5100 
5110 
5115 
5120 
5130 

5140 

5150 
5160 
5170 
5 ISO 
5190 

5200 
5210 
5220 
5230 
5240 
5250 

5260 
5270 
5280 

5290 

5300 

5330 
5340 
5400 
5500 
£000 
6005 
6010 

£030 

6040 

6050 



£060 
6065 



IF Tl = 1 THEN T2 
5330 
REM 

GOSUB 7500 
REM 

IF RS = THEN 
GOTO S330 
J = 1 

REM 
NA - AN(RL<J) ) 
K = 1 
REM 

PT + i:ST<PT> 
l:ST(PT) = J 
PT + l:ST(PT> 
l:5T(PT> = NA 
Jl = O TO RS 



BOSUB 4000: 



PT = 
PT + 
PT = 
PT + 

FOR 
PT = PT + l:ST<FT> = RL(J1> 

NEXT Jl 
PT = PT + l:ST(PT> 
H = CNSQ(RLtJ) ) + 
00 
RS = ST(PT) :PT = PT - 1 

FOR Jl = RS TO O STEP 
RL(J1) = 5T(PT>:PT = PT 

NEXT Jl 
NA = 5T<PT):PT = PT - 1 
K = ST<PT) :PT => PT 
PT - 1 
PT = PT 
THEN K = 
IF K 



RS 
GOTO 50 



i: J 



l 

K = NA 

< = NA GOTO 



THEN GOSUB 30OO: 



IF J 



RS THEN 



T(PT) :pt = 
H = ST<PT) : 

IF T2 = 
K = K + 1: 
5120 

IF T2 = ] 
J = RS 
J = J + u 
5100 

IF FT > 1 THEN 5200 

RETURN 

REM *********************** 

REM ******************** 

REM LER HIPOTESES 
1H = 

PRINT "QUAL E' A HIP0TE5E?" 
: INPUT H* 

IH = IH + l:IR = IR + l;FR*< 
IR) = H*:HIP<IH> = IR 

PRINT "VOCE QUER LER OUTRA 
HIPOTESE? (S/N> " 

GET RESP*: IF (RESP* < > " 
3") AND (RESP* < > »N") THEN 
6050 

IF RESP* = "S" THEN 6010 

RETURN 



60/0 REM *********************** 



£490 
6500 
6510 

6540 

6550 
£553 



6560 
65£5 
6570 

7000 
7005 
7010 
7020 

7030 

7040 
7050 

7060 
7070 
7080 



REM ********************* 
REM == LER FATOS == 
PRINT "QUAL E' O FATQ?": INPUT 
p% 

IT = IT + 1:IR = IR + l:FR*( 
IR) = F*:FT(IT) = IR 

PRINT "VOCE QUER LER OUTRD 
FATO? (S/N) " 

GET RESP* 

IF (RESP* 
SF* < > "I 
O 

IF RESP* 

RETURN 

REM ***********-************ 



> "S") AND (RE 
THEN GOTO 655 



THEN £510 



7 1 00 
7110 



7 1 20 
7125 



7130 

7135 
7200 
7490 
7500 
7510 
7520 
7530 

7540 

7550 



REM == LER REGRAS == 

PRINT 
RS = 

PRINT "TODAS AS REGRAS DEVE 
M TERMINAR COM . " 

PRINT "TECLE A REQRA. " : INPUT 
BU* 

GOSUB 11000 
RB « RG + 1!IR = IR -h 1:FR*( 
IR) = FS*:CNSQ(RG) = IR 
NA = 

GQSUB 11000 

IF FS* = "' , THEN INPUT "CO 
NT. DA REGRA " ;BU»: GOTO 707 


IF FS* < > "." THEN NA = N 
A + l:IR = IR + 1:FR*(IR> = 
FS*: GOTO 7070 
AN(RG) = NA 

PRINT "VOCE QUER LER OUTRA 
REGRA7 (S/N) " 

GET RESP* 

IF (RESP* < 
SP* < > "N") 
O 

IF RESP* = "S" THEN 



> "S"> AND (RE 
THEN GOTO 712 



GOTO 7 



O30 

RETURN 

REM *********************** 

KEM * ***** ******** ****** 

REM == RELEVANTES == 
RS = O 

FOR I = O TO RG 

IF FR*<CNSG(I)) = FR*CH) THE 
RS = RS + l:RL<RS) = I 

NEXT I 

RETURN 



7560 REM *********************** 



7570 
SOOO 
8010 
8020 



S030 
8100 



REM ******************** 

REM ===== NEG ===== 

REM PARAMETRO EM F* 

IF LEFT* (F*,4> = "NAO " TJ- 
F* = RIGHT* (F*, LEN (F*) - 
4); RETURN 
F* = "NAO " +• F*: RETURN 

REM *********************** 



8490 REM ******************** 

8495 REM == MEMBER == 

8500 REM MEMBER VERIFICA SE F* 

ESTA' NA LISTA DE FATOS. RE 
SPOSTA EM Tl. 
8510 Tl = O 

8520 FOR II = 1 TO IT 
8530 IF FR*(FT(II>) = F* THEN II 

= IT^Tl = 1 
0540 NEXT II 
8550 RETURN 
8600 REM *********************** 

£3700 REM ******************** 
9000 REM GUARDA FATO. RESPDSTA 

EM Tl.ARGUMENTO EM F* 
9010 GOSUB B500 
9020 IF Tl = 1 THEN RETURN 
9030 REM 

9040 REM v 

9100 IR = IR + l:IT a IT + 1 
9110 FR*(IR) = F*:FT(ITI = IR 
9 1 20 RETURN 

9200 REM *********************** 
9210 REM ********************* 
10000 REM == ANALISADOR LEXICO 
10010 WR5 = '■■' 
10020 IF LEN (BU*) = O THEN RETURN 

10030 CH* = LEFT* (BU*, 1) 

10035 IF LEN (BU*) > 1 THEN BU* 
= R I GHT* < BU* , LEN (BU* ) - 

1): GOTO 10040 

10036 BU* = "" 

10040 IF (CH* = " "> AND ( LEN ( 

BU*) > 0) THEN GOTO 10030 
10050 IF ASC <CH*} < 33 THEN RETURN 

100£0 IF LEN (BU*> = THEN WR* 

= CH*: RETURN 
10070 WR* = CH* 
10080 IF MRS = ■'." THEN RETURN 

10090 CH* = LEFT* <BU*,1) 



Listagem 3 - LISP 



(DEFINE (DEFfFLAHBDAtS) 
(PUKCftR SJ'EXPR (CDtffi 'LASBDA (CDS S)>) ))) 

(DEF ESPECIALISTA (HIPOS) 
(CQND {(NULL HIPCS)N1U 

UVERIFIBUEfCftR HIPOS)) (CM HIPOS)) 
( ESPECIALISTA (CDR HIPOS)) )) 

(DEF VERIFIQUS(HIPO) 

CONE (MEMBER HIPD FATOS) T) 

((MEMBER (NEB HIPDI FATOS) NIL) 
((PROVEUMfHRELEVANTES HIPO RE6RAS))T) 
(fSRINT) (PRINT '(INVESTIGUE SE))(PRINI HIPO) 
(IMVESTIGLJEJ) )) 

(DE? RELEVANTES (HIP REGS) 
(C3ND ((NULL REGSSNIU 

((EQUAL HIP(CAR(CAR REGS))) 
(CONS (CDR(CDR(CAR(REGS))) 

(RELEVANTES HIP(CDR REGS)) )) 
(T (RELEVANTES HIPOR RESS))) }) 

(DEF PRDVEUKR(RLS) 
(C0\3 ((NULL SLS)NIL) = 

((VERDfiDEIflflStCAR RLSJ1T) 



((PROVEU»IA (CDR RLS))) )) 

(DEF VERDADEIRAS(ANTEC) 
(COND ((NULL ANTEOT) 

((VERIFIQUEtCAR ANTEC)) (VERDADEIRASICDR ANTEC))) )) 

(DEF IMVESTIBLEO 
(^OS(VF) 
(PRIKT(CHR 7)) 
(SETQ VF(GETCHR)) 
(CCND ((EQUAL VF W) (PRINT 'VERDADEIRA) 

(SETQ FflTQS(CONS HIPD FATOS) ) (RETURN Tl) 
((EQUAL VF 'FMPRIMT 'FALSA) 
(SETQ FATDSfCONStNEG HIPOS)FATDS))(RETURN NIL)) 
(TCPRIMT MRESPONDfl APENAS COM V/FJ) (INVESTIGUE)) ))) 

(DEF NEG(H) 

(COM) t(EQUAL(CAR H) 'NEGACAO-DE:) (CDR H)) 
(TtCONS 'NEGflCAD-DE: HI) )) 

(DEF KEM^RfE L) 
(CGND ((NULL UNIL) 

((EQUAL E(CAR L))T) 
(T!«EMBER E(CDR L)>) )) 

(DEF LISTAFATOS (FATOS) 
(COND UNLU. FATOS)) 

((?RIMT(CAR FATOS)) 
(LISTAFATOS (CDR FATOS))) )) 
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10092 


IF LEN <BU*) > 1 THEN BU4 




= RI GHT* < BU* , LEN ( BU* > - 


1): GOTO 10100 


10100 


IF < ASC (CH*> < 33) THEN 




RETURN 


10105 


IF CH* = ■'." THEN BU* = CH 


* 


+■ BUS: RETURN 


10110 


WR* = WR* + CH* 


10120 


IF LEN <BU*> = THEN RETURN 


10130 


GOTU 10080 


10200 


REM *■***■********■##**■****** 


10 205 


REM ***■»**#**#*##*###**# 


10210 


REM ANALISADOR SINTATICO 


11000 


FS* = "" 


11010 


GOSUB 10000 


11015 


IF WR* = "SE" OR WR* = "£" 




THEN GOTO 11010 


11020 


IF WR4 = "" THEN RETURN 


1102S 


F3* = WR* 


; 11030 
1 


IF WR* = "." THEN RETURN 


11040 


SOSUB 10000 


11050 


IF WR* = "'■ OR WR* = "SE" DR 


WRS = "E" THEN RETURN 


11 060 


IF WR* = "." THEN BU* = ". 




+ BU*: RETURN 


11070 


FS* = FS* + " " + WR* 


11080 


GOTO 11040 


11100 


REM ********##***#***«»*** 


11110 


REM *#*«***********#***♦ 


12000 REM E5VAZIA L.I5TA DE FATO 

c 


12010 


IT = 


12020 


RETURN 


12030 


REM *****#*#■***■*■*■*■#******* 


12040 


REM ********** **#***###* 


12100 


REM ESVA2IA LISTA BE HIPO 


TESES 


12110 


IH = 


12115 


RETURN 


12150 


REM ********************** 


12200 


REM **************.*#**#** 


12210 


REM === LISTAFATOS ====== 


12220 


FOR I b l TO IT 


12230 


PRINT FR*(FT (I) > 


12240 


NEXT I 


12245 


PRINT "APERTE OUALQUER TEC 


LA PARA CONTINUAR" 


12246 


GET A* 


12250 


RETURN 


12260 


REM *#***##■**********#*** I 



programa BASIC pode ser usado 
sem modificaccfes no Apple e, com pe- 
quenas modificafoes, no TRS-80 e no 
Sinclair. A primeira destas modiflcagoes 
4 substituir os comandos GET por co- 
mandos INKEY$. Assim, o comando 
GET AS da linha 1180 deve ser substi- 
tuido por 

1180 AS = IMKEY$: IF 
AS = " « THEM 1180 

As sub-rotinas 2600 e 2800 sao usa- 
das, respectivamente, para gravar regras 
em disco e ler regras do disco. O que a 
sub-rotina 2600 faz £ simplesmente gra- 
var as variaveis RG e IR e as matrizes 
FR$, CNSQ e AN no disco. Ja a rotina 
2800 recupera estas mesmas matrizes e 
variaveis. Ora, comandos de leitura e gra- 
vacao variam enormemente de computa- 
dor para computador. Isto significa que, 
se seu computador n£o for Apple, voce 
deve reescrever estas duas sub-rotinas. 

Apos ter digitado o programa, voce 
deve introduzir as hipoteses e regras no 
conputador. Se voce estiver usando JJSP, 
tecle (SETQ HIPOTESES (READ)) e 
em seguida tecle as tres hipdteses daLta- 
tagem 1. Se voce estiver usando LOGO, 
tecle MAKE "HIPOTESES e em segui- 

MICRO SISTEMAS, maio/84 
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Listagem 4 - LOGO 



TD ESPECIALISTA .-HIPOTESES 

IF zHIPQTESES - C3 OUTPUT "'HIPOTESES FALSAS' 
IF VERIFIGUE FIRST :HIP0TESES OUTPUT FIRST :HIPOTES£S 
OUTPUT ESPECIALISTfl BUTFIRST :HIPOTESES 
END 

TO VERIF1QUE :HIPO 
IF HEHBER :HIPO :FATOS OUTPUT "TRUE 
IF BEMBER ( NEG :HIPO ) :FATGS OUTPUT "FALSE 
IF PRQVEUffi ( RELEVANTES :HIPD : REGRAS ) OUTPUT "TRUE 
CLERRINPUT PRINT " 
( PRINT "IWEBTIGUE SE' :HIPO ) 
OUTPUT INVESTISUE :HIPG 

END 



TO RELEVANTES :HIP :SESS 

IF :RESS = [] OUTPUT U 

IF :HIP = FIRST FIRST :3EGS QP F&UT BF B? 

OUTPUT RELEVANTES :HIP BUTFIRST tRESS 
END 



FIRST :RE3S RELEVANTES :HIP BF :REGS 



TD PROVEUMA :RLS 
IF :RLS - U OUTPUT "FALSE 
IF VERDADEIRAS FIRST :RLS OUTPUT 
OUTPUT PROVEUMA BUTFIRST :RLS 

END 



"TSUE 



TO VERDADEIRAS :HIPS 

IF ;HIPS = [3 "OUTPUT "TRUE 

IF VERIFIQUE FIRST :HI?S OUTPUT VERDADEIRAS? BUTFIRST :HIPS 

OUTPUT "FALSE 
END 

TO INVESTI6UE sHIP 

PRINT! CHAR 7 

MAKE "VF READCHARACTER 

IF :VF = "V PRINT "VERDADEIRA MAKE "FATOS FPUT iHIP :FATOS OUTPUT "TRUE 

IF :VF = "F PRINT "FALSA KftKE "FATOS FPUT ( NES :HIP > :FfiTOS OUTPUT "FALSE 

PRINT! [RESPONDS APENA5 CtW V/F:] 

OUTPUT INVESTISUE :HIP 
END 

TO NEG jH 

IF FIRST :H = "JiEGACAC-DE: OUTPUT BUTFIRST :H 

OUTPUT SENTENCE "NEGACAQ-DEt :K 
END 

TO MEMBER :E :u 

IF :L = t] OUTPUT "FALSE 

IF :E = FIRST :L OUTPUT "TRUE 

OUTPUT SOBER :E BUTFIRST :L 
END 

TO LISTflFATOS :FATOS 

if :F&?cs * n stop 

PRINT FIRST ;FATOS 
LISTAFATOS BUTFIRST iFATOS 
END 



3 
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PROGRAMAS QUE RACIOCINAM 



da entre com ashipotesesdaJLf'stegemA 
substituindo os parenteses redondos por 
parenteses quadrados. A introducao das 
regras-e analoga: em LISP, tecle (SETQ 
REGRAS (READ)), seguido das regras 
da Listagem 1; em LOGO, tecle MAKE 
"REGRA, seguido das regras da Listagem 

O programa BASIC e dirigido por um 
menu, Tecle RUN e o menu ser-ihe-a" apre- 
sentado, Escolha a op9ao Ceo progra- 
ma lhe pedira" uma hipotese. Tecle a pri- 
meira das hip6teses daListageml sem os 
parenteses e sem qualquer marca de pon- 
tua9ao. programa perguntara se voce 
quer ler outra hip6tese. Responda S e 
tecle a hip6tese seguinte. Apos teclaras 
tres hipoteses, pressione N e o menu se- 
r£ recolocado na tela. Escolha a opcao 
Deo programa pedira* uma regra. Come- 
ce a entrar com as regras da Listagem 1 
sem os parenteses e obedecendo as se- 
guintes restricoes: 

1 — o consequente deve ser separado 
dos antecedentes por SE ; 

2 — os antecedentes devem ser separa- 
dos um do outro por E; 

3 — toda regra deve terminarcom ponto. 
A terceira regra, por exemplo, deve ser 
tecladaassim: 

A GRALHA ROUBOU 
COLAR SE A 3ANELA 
ESTAVA ABERTA E 
COLAR ERA 
BRILHANTE E 
GRALHAS GOSTAH DE 
COISAS BRILHANTES. 

Para que o programa BASIC comece 
a investiga^ao, basta escolher a opcSo G 
do menu. Para iniciar a investiga9ao em 
LISP, tecle (ESPECIALISTA HIPOTE- 
SES). Em LOGO, a investigafao tera" ini- 
cio quando voce" teclar (ESPECIALISTA 
:HIPOTESES). 




, Passo 1 — Examine se a 'hipotese esta na lista de fatos. Se estiver, ela e 
Verdadeifa pois, corho disse Aristoteles, contra fatos nao ha argumentos. 

. Passo 2 -y Examine se a riegagao da hipotese esta na Usta de fatos. Se estiver, 
amp6teseefalsa. 

. Passo 3 ~ Construa a lista detodas as regras cujos consequentes sejam iguais 
i hipotese. Estas regras, confoime virnos, sa"o relevantes para demonstrar a 
veracidadede uma hipotese. 

. Passo 4 -*>■ Entre as regras relevantes, tente encontrar uma cujos antecedentes 
sejam todos verdadeiros. Se voce conseguir, a hipotese 6 verdadeira. E como 
demonstrar que todos Os antecedentes de uma regra relevante sao 
verdadeiros? Simplesmente usando o algoritmq VERIFIQUE! 

, Passo 5 — Se nSo houver nenhuma regra relevante n^o sera possi'vel concluir 
pela vef aeidade ou falsidade da hipdtese usando processos dedutivos. Neste 
casO, o sistema especialista deve pedir ao usuario que investigue se a hip6tese 
e" verdadeira ou falsa. Aqui ele se assemelha ao detetive Nero Wolf que, por 
ser muitogordo,nSO podia sairde casa e pedia a seu assistente que 
investigasse tudo quanto n^o era possi'vel deduzir. 



APLICACOES PARA 
O PROGRAMA DETETIVE 

As hipoteses e regras dadasna£/sta- 
gem 1 foram escolhidas para que o pro- 
grama resolva o misterio apresentado em 
La gazza ladra. A historia da gazza ladra 
foi aproveitada pelo musico Joaquim 
Rossini para compor uma 6pera e pelo 
desenhista Merge - para a aventura de Tin- 
tin denominada As joias da Castafiore. 
Na aventura de Tintin, ciganos que esta- 
vam acampados nas proximidades da 
mansa'o do capitao Haddock sao acusa- 
dos injustamente de roubarem o valioso 
colar da soprano Castafiore . O heroi Tin- 
tin, porem, usando racioci'nio regressive 



descobre que uma gralha, atraida pelo 
brilho da joia, entrou no quarto e levou 
o colar para seu ninho. 

leitor, substituindo as hipoteses e 
regras da Listagem 1 , podera fazer seu 
computador resolver outros misterios. 
Assim, o computador poderd represen- 
tar o papel de Guilherme de Baskerville 
em O nome da rosa ou de Hercule Poi- 
rot em assassinato no Expresso Orien- 
te. Para que a maquina tenha exito, en- 
tretanto, e necessario escolher as regras 
rigorosamente. 

A escolha cuidadosa das regras e tao 
importante que surgiu nos Estados Uni- 
dos um tipo de profissional, o engenhei- 



Listagem 5 - Exemplo de execuqao 



A HIPOTESE ABAIXO E' VERDADEIRA? (S/N) 
CIGANOS SEMPRE USAM BOTAS 

?s 

A HIPOTESE ABAIXO E' VERDADEIRA? <S/N) 

APENAS CIGANOS USAM BOTAS 

?N 

A HIPOTESE ABAIXO E' VERDADEIRA? <S/N) 

A OAMAREIRA GASTAVA MUITO 

?3 

A HIPOTESE ABAIXO E' VERDADEIRA? (S/N) 

O SALARIO DA CAMAREIRA ERA BAIXQ 

?S 

A HIPOTESE ABAIXO E' VERDADEIRA? (S/N) 

A UNICA FONTE DE RENDA DA CAMAREIRA ERA D SALARIO 

?S 

U5ANDD A REGRA: 

A CAMAREIRA GANHAVA POUCO SE 

□ SALARIO DA CAMAREIRA ERA BAIXO 

E A UNICA FONTE DE RENDA DA CAMAREIRA ERA SALARIO 



CONSEGUI PROVAR SUE A CAMAREIRA GANHAVA POUCO 

USANDO A REGRA: 

A CAMAREIRA PRECISAVA DE DINHEIRO SE 

A CAMAREIRA GASTAVA MUITO 

E A CAMAREIRA GANHAVA POUCO 

CONSEGUI PROVAR QUE A CAMAREIRA PftECISAVA DE DINHEIRO 

A HIPOTESE ABAIXO E* VERDADEIRA? (S/N) 

ERA FACIL VENDER COLAR 

?S 

USANDO A REGRA: 

A CAMAREIRA ROUBOU O COLAR SE 

A CAMAREIRA PRECISAVA DE DINHEIRO 

E ERA FACIL VENDER COLAR 

CONSEGUI PROVAR QUE A CAMAREIRA ROUBOU O COLAR 

A HIPOTESE A CAMAREIRA ROUBOU COLAR E* VERDADEIRA 

APERTE QUALQUER TECLA PARA CONTINUAR 
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ro de conhecimento, cuja unica fur^ao e 
escolher as regras. O engenheiro de co- 
nhecimentos entrevista medicos, jogado- 
res, geplogos ou quimicos e tenta trans- 
formar a experiencia em regras que se- 
rao usadas por programas especialistas. 
A seguir fornecemos algumas dicas de 
como escolher as regras. 

Para tornar a investigacao emocionan- 
te, e* preciso criar regras que usem outras 
regras. Regras para cuja comprovacao 6 
necessario usar outras regras forc,am o 
computador a urn raciocinio indireto e 
isto torna o processo de deducao muito 
interessante. Tentemos esclarecer este 
ponto com um exemplo. Se quero for- 
necer ao computador meios de provar 
que (A CAMAREIRA ROUBOU O CO- 
LAR), posso simplesmente colocar a re- 
gra: 

((A CAMAREIRA ROUBOU 
COLAR) SE (A CAMAREIRA 
PRECISAVA DE DINHEIRO) 
). 



A investigagao, porem, tornar-se-a 
muito mais interessante se fornercemos 
uma regra que permita deduzir que (A 
CAMAREIRA PRECISAVA DE DI- 
NHEIRO). Esta regra poderia ser: 

((A CAMAREIRA PRECISA 
DE OINHEIRO) SE (A 
CAMAREIRA GASTAVA 
MUITO) ) 

E a emocSo aumentara" se fornecermos 
ao computador a seguinte regra para pro- 
var que (A CAMAREIRA GASTAVA 
MUITO): 

((A CAMAREIRA GASTAVA 
MUITO) SE (A CAMAREIRA 
COMPRAVA 0B3ET0S CAROS 
)) - 

Na listagem 5 temos um exemplo de 
execucao do nosso programa detetive. 



As fungoes do programa especialista 



;^£x^i°t ^SPECIALISTA recebe uma lista de hipoteses e, usando a funcao 
VfcKIMQUE, tenta encontrar uma que seja verdadeira. 

.A funcao VERIFIQUE recebe uma hipotese e, fazendo uso dos cirico passos 
ja descntos, descobre se ela e verdadeira ou falsa. 

. A funcao RELEV ANTES seleciona dentro da lista de regras todas as regras 
relevarites da hipotese que recebeu de VERIFIQUE. 

. A funcao PROVEUMA executa o passo 4, isto e, tenta provar que uma das 
regras relevantes e verdadeira. 

.A funcao VERDADEIRAS e a mais simples e interessante. Ela entrega para a 
c U c n o 9 f?T V ? RIFIQUJE uma anteceden *e para ser provada (da mesma forma que 
EWECIALISTA entrega uma hipotese). Note que VERDADEIRAS faz 
uso de todo programa e, portanto, de si mesma. No programa BASIC 
VERDADEIRAS foi incorporada a VERIFIQUE. 

. A funcao INVESTIGUE executa o ultimo passo, a saber, recorre ao usuario 
para decidir se a hipotese e" verdadeira ou falsa. 

. A funcao NEG recebe uma hipotese ou um antecedente e retorna sua 
negacao. 

. A funcao MEMBER verifica se uma hipotese esta na lista de fatos. 



fP£?2 E iT rcio C ? S V> *"»"* * formodo em Engenharia Eletrdnica pe/a Esco/a Politdcnica da 
USP e em Ffs,ca pete Institute de Ffsica da USP. Fez mestrado em CiSncia Especial no Institute 
rJ^T.T- Et P acms f m S*» ■*** *» Campos, SP, e doutorado em Engenharia Eletrdnica na 
Come// University em Ithaca, Nova lorque (EUA). Atua/mente 4 professor na USP. 

Andre- Gurgel 6 analista de sistemas da sucursal de Sao Paulo da Cia. de Seguros Aiianca da Ba- 
nhia e graduando do curso de Biologia da Universidade de Sao Paulo. 
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voce e seu 
micro 




r^. 



Um relacionamento assim 
merece um programa exclusivo 

• A Informatic Service desenvolve 
programas conforme suas neces- 
sidades. 

• Presta-lhe total assistencia atrav6s 
de uma Assessoria de Sistemas 
exclusiva. 



Promove a relapao 
Homem-Software-Maqurna 
de forma perfeita 



Consulte-nos ainda hoje. 

M FORMA TIC SER VICE DO 

BRASIL 

Av. 1 3 de Ma io, 47 - grupo 2707 

Fone:{021| 262-8769- RJ 



CIENCIA MODERNA 
COMPUTAQAO 

A Untea Especializada em Livroa 
e Revfataa p/ Microcomputapao 



Publicag$es p/IBM PC./'Xt.'e Similares: 



• IBM PC EXPANSION AND SOFTWARE GUIDE 
(Qjb) 3/E 




• SPREADSHEET SOFTWARE FROM VISICALC 
TO 1.2.3. (Que) 


39077.00 


• GRAPHICS FOR THE tBM PC (Korilesj 
acompanha diskette 


116 150.00 


• 10Q READY-TORUN PROGRAMS AND 
SUBROUTINES FOR THE IBM PClBrerzj ,\ 


40425,00 


• BUSINESS APPLICATIONS FOR IBM 
PERSONAL COMPUTER (Zimerman) 


43 977.00 


• HOW TO GET STARTED WITH MS-DOS 
(Townsend) 


20 227.0/) 


• USEFUL EtA^IC PROGRAMS FOR THE IBM PC 
(Trost) .. 


12.97.7.00 


• IBM BASIC (Payne) 


23 127 00 


■ IBM'S PERSONAL COMPUTER 2ND EDITION 
INCLUDES XT (Oue) 


39.077.00 


• ADVANCED BASIC AND BEYOND FOR THE IBM 
PC (Goldstein) 


48 877,00 


• SOFTWARE SOLUTIONS FOR THE IBM PC: 
A Practical Guide to Dbase H Loius i 2 3 
Visicaletc (Willmott) 


36 627,00 


'• IBM DATA FILES A Basic Tutorial (Millerf 


23 125,00 


• HANDBOOK OF BASIC FOR THE IBM PC 

{Schneider) 


48 877 00 


• PC DOS USING THE IBM PC OPERATING 
SYSTEM (Ashley) 


36 627,00 


• IBM PC DATA FILE PROGRAMMING 
(Brown! 


36 627,00 


■ylslte-jios ou pe$a uma lista do 




nbsso estoque especifica para seu 


micro* 


Atendemds tamb6m por Fteemb. Postal e Varig. 



Av Rio Branco, 156 — toja 127 — subsolo 
Rio de Janeiro— Tels 262-5723/240-9327 



m 



Corrigir provas nao e mat's probiema... 
Deixe isso por conta dos micros da linha TRS-80 modelo III 



Corrigindo 
provas no micro 



Lawrence Falconer King 



Este programa corrige e calcula as 
notas de ate duzentos alunos 
por turma, de provas tambem de 
ate duzentas questoes. Para cada 
turma corrigida e criado um arquivo em 
disco ou fita, onde sao gravados os no- 
mes dos alunos e suas respectivas notas. 
Estes arquivos poderao ser listados no 
video ou na impressora- 

programa se aprescnta dividido em 
tres partes. A primeira envolve a monta- 
gem do gabarito de respostas, a correijao 
das provas dos alunos e a cnacao do 
arquivo por turma. A segunda parte e re- 
lativa a listagem dos arquivos existentes 
em disco ou fita. A ultima possibilita a 
transference de arquivos entic discos, 
fitas, e entre disco e fita (c vice-versa). 

Como este programa ocupa uma 
grande area de memoria, somente micro- 
computadores com 48K RAM e que po- 
derao suporta-lo. Para sistemas operacio- 
nais diferentes do DOS-500 e do 
TRSDOS (do TRS-80), algumas modifi- 
cacoes poderao ser necessanas nas roti- 
nas relativas a leitui a-gravacao de arqui- 
vos em disco. Para isto, sugiro que voce 
consulte scu manual referente ao siste- 
ma opeiacional. 

Para canegar o programa, utilizamos 
o comando RUN ou CLOAD. Apos isso, 
indicamos a tarefa que desejamos reali- 
zar, isto e, criar, listar ou transferir. De- 
vemos teclar uma das ties lctras C, L ou 
T, de acordo com o trabalho a ser efe- 
tuado, ou entao teclamos FIM para ter- 
minal o processamento, sc for o caso. 
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Corregdo de Provas 



PROGRAMA DE GORRECAO DE PROVAS 
ALITOR: LAWRENCE FALCONER KING 
IF* (0242) 42-1919 
PETR0P0L1S/RJ 



ID REM 
20 REM 
30 REM 
40 REM 
50 REM 

80 CLEAR 10000 

85 DIM m<200 r A> T IX < 200) 

90 KiI="CLASSIFICftR POR (A>LUN0 OU POR (N)01A t 

100 A4=CHRSC34) 

i 1 Gi™ iV " 

140 CLSSPRINT TAB <20> "PROGRAMA DE CORRECAO DE PROVAS" 

130 INPUT "(ORIAR , <L)ISTAR 00 (T)TRANShER IR", 1H IF t*- FIN IHt '< CLb ' 

END ELSE Ti™LEFTKT<fc,i> t*--»T" GOTO 116 

160 IF T1-"L" GOTO 1080 ELBE IF T5="C" GOTO 200 ELSE IF 11- 1 BOIO lie 
ELSE GOTO ISO 

170 REM _ ^ __ ~_=_^ B 

175 REM "' 

180 REM 

185 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 G0KU8 2300 

240 REM 

230 REM 

Us 5"="GABARIT0 DA DISCIPLINA DE - : H2^NMt = H34-0UEST AO" =H4*="RESP0STA 

270 H IF GI-"F" CL8SF0R 1 = 1 TO NQ:M9>< I , i )-"Q"=NEXT I sPR INTffliO , "OUTRO GAHAR 

ITO <S/N) ?" f :INPUT K5SIF' LEF 'TKRi, i ) ="N" GOTO 500 

290 PRINTS i3-INT<LE:N<NMS>/2>, "MONTAGEM DO GABARITO DA DISGIPLINA DE "; 

NHS 

3 G I " L i 

310 PRINT3173 " "SPRINTS) 146, "ENTRE RESPOSTA DA QUESTAO";!; 

320 INPUT MS<i r 0>:IF LEN<M*( 1 ,0) ) =0 GOTO 310 

330 IF MS<I,0)O"FIM" THEN G0TO34G ELSE GOTO 390 



ROTINA DE CORRECAO E GR1AGA0 DOS ARQUIVOS 



PECA DADOS DE ENTRADA 



MONTAGEM DO GAEJARITO 
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PARA (C)RUR 



Se^ teclamos C, o programa entra na 
rotina de cuacao dc arquivo, que, por 
sua vez, 6 dividida em vanas sub rotinas; 
entrada de dados, montagem do gab'ari- 
to, correcao das provas dos alunos, clas- 
sificacao da turma por aluno ou por no- 
ta, gravacao da turma em arquivo de dis- 
co ou fita e indice de aproveitamento 
das quest oes. 

Na primeira sub-rotina, devemos en- 
trar com varios dados necessarios ao 
processamento. Comecamos, entao, com 

nome da turma, que deve ser forneci- 
do como urn nome de arquivo valido pa- 
ra o DOS, caso as unidades de disco se- 
jam utilizadas. 

Vejamos, como exemplo, estes dois 
tipos de nome de turma: 1SERIE e 

1 SERIE/MAT. No primeiro caso, flea es- 
cificado apenas o nome da turma e pode 
ser utilizado se o arquivo de sa/da e por fi- 
ta ou disco, sendo que, neste ultimo, em 
caso de nao haver outra disciplina para a 
mesma turma. No segundo exemplo, te- 
mos o nome da turma (ate* o maximo de 
sete caracteres) seguido de uma exten- 
sao composta de "/" e mais tres letras 
(ou algansmos, no maximo tres caracte- 
res), o que serve para identificar o arqui- 
vo de notas de matematica da turma 
1SERIE, dos arquivos dc notas de ou- 
tras disciplinas desta mesma turma. 

Em rela9ao aos dois exemplos acima, 
e mais convemente que utilizemos sem- 
pre o segundo, isto e, com a extensao 
(mesmo para arquivos em fita) e que 
esta extensao seja uma abreviatura da 
disciplina. O fato de o nome da turma 
iniciar por urn algarismo e irrelevante 
para o programa, pois quando e cnado 
o arquivo em disco, a letra T e prefixada 
ao nome, de modo que, ao se pedir o 
diretono do disco, apos a criacao do ar- 
quivo, o nome sera Tl SERIE/MAT 
(usando o exemplo acima). 

Entramos, agora, com o nome da dis- 
ciplina cujas provas serao corrigidas. 
Este nome deve ser teclado corretamen- 
te, pois sera gravado no arquivo e nao 
mais podera ser corrigido. Por ultimo, 
vem o nome do equipamento onde sera 
criado o arquivo; teclamos D para disco 
ou F para fita. 

A proxima sub-rotina e montagem 
dos gabaritos. Ai temos uma facilidade, 
ja" que, apos ter sido processada uma 
turma, o programa ainda guarda o gaba- 
nto anterior e pergunta se, para proces- 
sar uma nova turma, devemos utiliza-lo. 
Caso negativo, teclamos S a pergunta 
sobre a utilizaijao ou nao de outro gaba- 
rito. 

Para montarmos o gabanto, devemos 
teclar a letra correspondente a resposta 
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VERIFICACAG DO GABARITO 



340 1=1+1 

350 GOTO 310 

360 REM 

370 REM 

380 REM 

390 NQ-I--1 

400 CLS 

410 PRINT TABOO) "A PROVA TFM 

420 PRINT TABO.U" CONFIRA--AS NOVAMENTE 

430 FOR L-i TO 900 = NEXT L = CLS 

440 REM 

450 REM 

460 REM 

470 Y = 

480 GOSUB 1990 



SfNQ f "QUESTOES" 



MOSTRE GABARITO NO VIDEO POR PAGINAS 



4 MO^OO"!^oS tln^^^li^l^^" ^ A A ^SCIPLINA Dt -HH*,- 



P :F0R L = TO 900=NEX! L=GS-"F" 

CORRECAO DA8 RESPOSTAS DOS ALUNOS 



MONT ADO' 
500 REM 
510 REM 
320 HEM 
530 A=0 
540 A=A+i 
550 CLB 

560 PRINTS)64,"ENTRE NOME DO ALUNO"- 
5/0 INPUT M1(A F 2>!IF LEN(MS( A,2J )-6 THEN 560 
jBO II- M<T>(A,2)-"FIM" THEN GOTO 820 

S 9 Sui%3 EN ElI?Jf'SiiiS«T?-p!!p 9 f'? UNER0 ° E CARACT <^RES DO NOME MAIOR D 
600 CLS LNTRtL N0VA ME.N1E" B F0R L^OT00900=NEXT LsGOTO 550 

6 63°0 ^ N ^ i a 5-INT(LEN<MKA ( 2))/a),"PR0VA DO ALUNO " ; MS<A,2) ; 

"SPRINTS) 206,"ENTRE COM RESPOSTA PARA A QUESTAO "-I- 



640 PRINTi)245, 

650 INPUT M$(i,4> 

6E10 NEXT I 

690 REM 

700 REM 

7i0 REM 

720 H1K-"RESP0RTAS DO ALUNO 

730 Y^G: GOSUB 1990 

740 REM 

750 REM 



MOSTRE RESPOSTAS DO ALUNO POR PAGINAS 



:H2Si=M1i(A,2)!X=4 



CALCULO DA NOTA DO ALUNO 

I-i TO NO: IF MI<I,4)OMI{I,0> THEN 766 ELSE RC=RC+i !«< I, 



760 REM 

765 RC^O: FOR 
i)==STR!t(VAL<M$<I i) )+l) 

766 NEXT I 

770 MS<A,3>=STRS<RC*<iO/NQ)> 
780 ROTO 540 

CLASSIFICACAO POR 
ALUNO OU NOTA 



790 REM 
BOO REM 



-iUiOSUB 2430 



810 REM 
820 A-A- 
830 REM 
840 REM 
850 REM 
860 GOSUB 1830 
870 REM 
880 REM 
890 REM 
900 REM 
910 IP DV<B~"D 
IF DV$^"D 



MOSTRE NOTAS DOS ALUNOS DA TURMA POR PAGINAS 



GRAVACAO DAS NOTAS DOS ALUNOS NO ARQUIVO 
DISCO OU PITA 



920 
930 REM 
940 REM 



GOSUB 
GOSUB 



1420 
1510 



ELSE GOSUB 1620 
ELSE OOSUB 1710 



MOSTRE INDICE DE APROVEITAMENTO 
DAS QUESTOES 



950 REM 
960 REM 

' Rl1 M **="INDICE DE APROVEITAMENTO DAS QUESTOES" ink"" <^H3S= 



980 HiS= 



990 GOSUB 1990 
1000 REM 
1010 REM 
1020 REM 
1030 GOTO 
1040 REM 
1030 REM 
REM 



Z"!X==3sY^i 



'QUESTAO" :H4 



140 



105: 



1060 REM 
1065 REM 
1070 REM 
1080 CLS: 
-0<S=LEFT$<0$,I) 
1090 IF 0<E=;"V" 
1094 REM 
1CJ95 REM 



FIM DO PROCESSAMENTO DA TURMA 



ROTINA DE LISTAGEM DE ARQUIVOS 



500 



1096 REM 

1100 GOSUB 

1104 REM 

iiOS REM 

ii06 REM 

1110 IF DVffi~"D" 

1115 REM 

1120 GOSUB 2430 

lias REM 



PRINT S) 10, "LISTA NO (VJIDEO OU NA 
OR 0*="I" THEN 1100 ELSE 1080 
PFCA DADOS DE ENTRADA 



CDMPRESSORA ? "-sTNPUT 01 



LEIA ARQUIVO DO DISCO OU DA FITA 

GOSUB 2600 ELSE GOSUB 27G0 

CLASSIFICAGAO POR ALUNO OU POR NOTA 

SAIDA DOS DADOS NO VIDEO OU IMPRESSORA 



I » 



. • ■ ■-- 



M 

I 
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CORRIGINDO PROVAS NO MICRO 



correta a questao indicada, seguido de 
ENTER. Quando todas as respostas tive- 
rem sido entradas, teclamos FIM e 
ENTER. Feito isto, na primeira linha do 
video sera mostrado o numero de ques- 
toes da prova. Todo gabarito sera, 
entao, enviado para o video em pdginas 
com dez questSes cada e poder^o ser 
confendas novamente. Para corrigir 
alguma resposta que porventura tenha 
sido mtroduzida erroneamente, basta 
pressionar qualquer tecla, exceto 
ENTER. Sera pcdido, na ultima linha do 
video, que seja fornecido o numero da 
quest£o a ter sua resposta comgida. 
Apos isto, entramos com a resposta cor- 
reta. A pagina 6 enviada novamente para 
o vi'deo com a modificacao realizada. 
Para mudar de pagina, teclamos sempre 
ENTER. 

Feita a montagem dos gabaritos, pas- 
samos para a correcao das provas dos 
alunos. Devemos entrar, entao, com os 
nomes dos alunos, os quais nao deverao 
ter mais do que 23 caracteres. Caso nao 
haja mais provas a serem corrigidas, ao 
invtfs do nome devemos entrar com FIM 
ENTER. 

Apos todas as respostas terem sido 
introduzidas, elas serao novamente mos- 
tradas no video, em paginas de dez ques- 
toes cada. Podemos, entao, corrigir a 
resposta de qualquer questao que tenha 
sido introduzida erroneamente, utilizan- 
do o mesmo procedimento usado duran- 
te a montagem do gabarito. A prova sera 
corrigida e a nota do aluno calculada pe- 
la seguinte formula: 



N0TA^RESP.C0RRETA5*<10/N2 QUEST.) 



Vejamos agora a sub-rotina de classifi- 
cacao de turma por aluno ou por nota. 
Quando o ultimo aluno for processado e 
teclarmos FIM ENTER, seremos consul- 
tados sobre a possibihdade de arquivar a 
turma, classificada ou nao. Se optarmos 
pela classiftca9ao , devemos teclar A para 
o caso de ela ser por aluno, ou N, para o 
caso de ser por nota. numero de alu- 
nos da turma sera mostrado na primeira 
linha do video e no meio deste a palavra 
CLASS IF ICANDO, que ficara piscando 
durante a execuc^o. 

Esta rotina e simples e, considerando 
que foi escrita em BASIC interpietado, 
levara um tempo razoavel para ser com- 
pletada. Foram realizados dots testes. 
No piimeho, com uma classificacao de 
52 alunos, o tempo rcquendo foi de 30 
segundos; com uma turma de 211 alu- 
nos, o tempo necessaiio foi de 30 mrnu- 
tos. 

Apos a classificacao, se icahzada, a 
turma, os alunos e as notas, serao mos- 
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11311 IF 0S="U" GOSUB 1830 ELSE: GOSUB 2930 

1140 CLS = PRINTS 10, "0UTRA TURMA PARA LISTAR <S/N) 

TSCR4,1>="S" GOTO 1100 ELSE GOTO 140 

1150 REM 

1160 REM 

1163 REM 

1170 REM 

1173 REM 

1180 REM 

1184 REM 

1183 REM 

1186 REM 

1190 INPUT 



: INPUT RS=IF LEF 



ROTINA DE TRANSFERENCE A DE ARQUIVOS 



PECA DADOS DE ENTRADA 



LEIA ARGUIUO DO DISCO OU DA FITA 
D" THEN DNl^DIi: GOSUB 2650 ELSE G0SU8 2BC 



VERIFIGUE SE CLASSIFICACAO NECESSARIA 



2470 



GRAUE DADOS EM DISCO OU FITA 

D" THEN DNS=D0S:G0SUB 1470 ELSE GOSUB 1620 
GOSUB 1310 ELSE GOSUB 1710 

'OUTRA TRANSFERENCE <S/N)";RS:IF LEFTS(R«, 1 ) ="S"THEN GOT 



SUB-ROTINAS 



:DNS 



ENTRADA EM <D)ISC0 OU <F) ITA"; IDS: IDS=LEFTi( IDS , 1 ) 
1200 IF ID$~"D" OR ID*="F" 1210 ELSE 1190 

1210 INPUT "SAIDA EM <D>ISC0 OU < F> ITA" f OD*sOD$=LEFTS(OD$ , i > 
1220 IF 0D$-"D" OR 0D$="F" 1230 ELSE 1210 
1230 IF IDS="D" DNS=" DO DISCO" ELSE DNS=" DA FITA" 
1240 PRINT "ENTRE NOME DA TURMA A SER LIDA" ? DNS; : INPUT NT* 
1230 IF 0D1G="D" DN$=" NO DISCO" ELSE DNS-" NA FITA" 
1260 PRINT "ENTRE NOME DA TURMA A SER GRAOADA"?DNS ; : INPUT TNI 
1270 INPUT "YOCE QUER SAIDA CLASSIFICADA CS/N) ";Ri'.IF LEFTS (RS, 1 ) = "S' 
HEN PRINT MISfSlNPUT 81 S 

1280 IF IDS="D" INPUT"ENTRE NUMERO DO DISCO A SER LIDO" f DI$ 
1290 IF 0DV---"D" INPUT "ENTRE NUMERO DO DISCO A SER GRAVA00";D0S 
1294 REM 

1293 REM 

1294 REM 
1300 IF IDS 
1320 REM 
1330 REM 
1340 REM 
1330 GOSUB 
1360 REM 
1370 REM 
1380 REM 

1385 NTS-TN*:IF 0DS= 
1390 IF 0DS="D 
1400 REM 
1410 CLSsINPUT 
1190 ELSE GOTO 140 

1414 REM 

1415 REM 

1416 REM = = =:;=,,= ;==== = =: 

1420 REM 

1430 REM SUB-ROTINA OE ABERTURA DO A'RQUIVO DISCO 

1440 REM PARA DRAVACAO 

1450 REM 

1460 CLS=INPUT "ENTRE NUMERO DO DISCO<0/1> 

1470 ARS="T"+NT$+"!"+DNS 

1480 OPEN "0",i,ARS 

1490 PRINT «i,NTS;",";NMS 

1500 RETURN 

1510 REM 

1520 REM 

1530 REM 

1540 REM 

1550 CLS:PRINT3460,"G R A K> 

1560 FOR 1=1 TO A 

1570 PRINT Hi,M$<IX(I> ,2> ;" 

1580 PRINTS32,U5ING~tt««";I; 

1590 NEXT I 

1400 CLOSE til 

1610 RETURN 

1620 REM 

1630 REM 

1640 REM 

1650 REM 

1660 CLSsPRINT"COLOQUE GRAVAOOR PARA GRAVAR TECLE (P)RONTO' 

1470 INPUT R2S:IF LEFTSCR2S, 1 ) <>"P" GOTO 1460 

1680 CTS=AS+NTS+AS:CM%=AS+NMS+A%!CA5=AS+MS<I,2)+AS 

1690 PRINT tt-i,CT$,CMS,CA«,MS<I,3) 

1700 RETURN 

1710 REM 

1720 REM 

1730 REM 

1740 REM 

1750 CLS:PRINTffl460,"G RAVANDO DADOS NA FITA' 

1760 FOR 1=1 TO A 

1770 CAS~At+MS(IX(I) ,2 )+AS: CNS=MS< IX ( I > ,3) 

1730 PRINT *t-i,CTS,CM$,CAS,CNS 

1790 PRINTS 32, USING- "titttt"; I ; 

1800 NEXT I 

1810 PRINT tt-1, "FIM", 0,0,0 

1820 RETURN 

1830 REM 

iE)40 REM 

1850 REM 

1840 CLS: POKE 16916,3 

1870 PRINTS 14-rNT<LEN(NT5)/2) /'NOTAS TIRADAS PELOS ALUNOS DA TURMA 

%; 

1880 PRINTS) 87-INTCLEN<NMS)/2> ,"NA DISCIPLINA DE ")NMS 

1890 PRINTS 143, "ALUN0";3169, "NOTA" 

1900 NP-INTCA/10): P=0 



SUB-ROTINA OE GRAVACAO DO ARQUIVO DE DISCO 
E SEU FECHAMENTO 

ANDO DADOS NO DISCO' 



:M%<IX<I> ,3) 



SUB-ROTINA DE ABERTURA DO ARQUIUO DE FITA 
PARA GRAUACAO 



SUB-ROTINA DE GRAYACAO DO AROUIVO DE FITA 
E SEU FECHAMENTO 



SUB-ROTINA DE DISPLAY POR PAGINAS 



jNT 
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trados no video, tambe*m por paginas, 
com dez alunos cada. Neste ponto, nao 
podemos mais efetuar nenhuma altera- 
cao dos dados. Pressionamos ENTER 
para mudar de pagina. 

Na sub-rotina da grava^o da turma, 
se o arquivo for em disco, o programa 
perguntara que unidade (0 ou 1) devera 
ser utilizada. Se o arquivo de saida for 
em fita, o programa solicitara que prepa- 
remos o gravador. Feito isto, teclamos 
P. Durante a grava^ao serd mostrado, no 
meio da primeira linha do vfdeo, o 
numero do registro que esta sendo gra- 
vado, sendo um registro por aluno. 

Por fim, chegamos a ultima sub-roti- 
na para a criacao do arquivo, que 6 o 
mdice de aproveitamento das questoes. 
Apos a grava?ao da turma, sera mostra- 
do no video esse mdice, por paginas, 
com dez questoes cada. Para mudarmos 
de pagina, teclamos sempre ENTER. 
Este indice e importante para que o pro- 
fessor saiba quais as questoes que apre- 
sentaram maior nivel de dificuldade ou 
facilidade para a turma, de modo que 
ele possa rever a materia concernente 
aquelas. Com isto termina o processa- 
mento da turma e, se mais nenhuma 
corre^ao for requisitada, o programa 
volta ao seu inicio. 



PARA(L)ISTAR 



Apos a criacao do arquivo, podemos 
lista-lo. Para isto, basta teclarmos L. A 
safda poder£ ser realizada no video ou 
na impressora. Serao pedidos, entao, os 
mesmos dados solicitados inicialmente 
pela rotina de criacao (corre^ao de pro- 
vas) de arquivo, ou sejam: nome da 
turma, nome da disciplina e o equipa- 
mento onde se encontra o arquivo (dis- 
co ou fita). 

Se o arquivo estiver em fita, devemos 
colocar o gravador pronto para leitura; 
se estiver em disco, devemos fornecer a 
unidade que deve ser utilizada (0 ou 1). 
Durante a leitura, o numero do registro 
sera mostrado no meio da primeira linha 
do vfdeo. Apos a leitura do arquivo, po- 
demos escolher entre a saida classificada 
(por aluno ou nota) ou nao. 

A turma e entao mostrada no video, 
em paginas, cada uma com dez alunos. 
Se a saida for na impressora, os dados 
serao enviados a ela. Ao fim desse traba- 
Iho, se mais nenhuma listagem for re- 
querida, o programa retorna ao seu ini- 
cio, solicitando outra tafefa a ser reali- 
zada. 
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!l;=IF VAL<M$<I,X>)=0 THEN PRINT TA8(37) M* 



1910 IF P*10*-10>A THEN LL=A ELSE LL=P*1Q+10 

1920 FOR I=P*10+i TO LL 

1930 PRINT Mi(IX(I>,2);TAB<40> USING "tttttt . tt«". VAL<MS t IX<I ) 3>) 

1940 NEXT I ' 

1950 R<&=INKEY4 = IF RS="" GOTO 1950 

1960 IF ASC<R$)=13 AND LL<A THEN P=P + i :CLS:G0T01910 

1970 POKE 16916,0 

1980 RETURN 

1990 REM 

2000 REM SUB-ROTINA DE DISPLAY POR PAGINAS 

2010 REM 

2020 CLSsPOKE 16916,3 

2030 PRINTS) 32-INT((LENCHlS)+LEN<H2S)>/2),HiS-H2S 

2040 PRINTS) 87,H3I 

2050 PRINTS) 97,H4S 

2060 PRINT 

2070 NP-INTCNG/iO) :P-G 

2080 IF P*10+1D>NS THEN LL=N« ELSE LL=P*iD+iO 

2090 FOR I=p*10+1 TO LL 

2100 PRINT TABC25) USING"H«M J , ..„. . ,, 

<I,X> ELSE PRINT TABC37) USING "ttHW . tttt". VAL<M£C I X)) 

2110 NEXT I 

2120 R5=INKEY%:iF RS="" G0T02120 

2130 IF ASC(RS)=13 AND LL<N« THEN P=P+i :CLS!G0T0 2080 

2140 IF ASCCR«)=13 GOTO 2210 

2145 IF Y=l GOTO 2120 

3150 PRINT8917," " = PRINTS)896, "ENTRE NUMERO QUESTAO"; 

2160 INPUT Rls I=VAL(R1> 

2170 IF VAL(R5K=LL AND VALCRS) >=P*10+i THEN 2190 

2180 PRINTS) 896, "NUMERO DA QUESTAO FORA DA PAGINA, ENTRE N0VAMENTE"5F0R 

L=0 TO 9005NEXT LJPRINT3 896,STRING*<64 ," "> s =F0R L=0 TO 90O:NEXT L*G0T0 

2150 
2190 PRINTH919," ":PRINTS)896, "ENTRE RESPOSTA CORRETA"- 
2200 INPUT MS(I,X):CLS!G0T0 2080 
2210 POKE 16916,0 
2220 RETURN 
2230 REM 

2240 REM SUB-ROTINA DE CLASSIFIOACAO 
2250 REM 

2270 R$=LEFTS(RlS,j.}: IF R*="A" THEN J=2 ELSE IF R*="N" THEN J=3 
2280 CLS:PRINT8 20, "0 NUMERO DE ALUNOS E "-A 
2290 PRINTS 468, "C LASSIFICANDO" 
2300 FOR IC=1 TO A~i 
2310 PRINTS) 468," 
2320 FOR IM=IC+i TO A 

2330 PRINTS) 468 7 "C LASSIFICANDO" 

2340 IF VAL(M$<IX<IC),J>) AND VAL<M* ( IX< IM) , J) > <>0 G0T02360 
2350 IF H«<IX<IC),JX=M»(IX(IM),J) GOTO 2400 ELSE 2370 
2360 IF UALCM3CXX<IC> r J)>>»VAL(NS(IX<IM) r J» GOTO 2400 
2370 IX(0)=IXUM> 
2380 IX<IM)=IX<IC) 
2390 IX(IC)=IX(0) 
2400 NEXT IM 
2410 NEXT IC 
2420 RETURN 
2430 REM 
2440 REM 
2450 REM 

2460 CLS = PRINTS> 10, "VOCE QUER SAIDA CLASSIFICADA tS/N) "-sINPUT R5 
2465 IF LEFT«<RS,i)="N" THEN 2470 ELSE PRINTS) 10, MIS; = INPUT R1S 
2470 CLS:F0R 1=0 TO A= IX(I)=I: NEXT I 

2480 IF LEFTS<RS,U="S" AND AM THEN GOSUB 2230 ELSE 2490 
2490 RETURN 
2500 REM 
2510 REM 
2520 REM 
2530 INPUT 



SUB-ROTINA DE PREPAftACAO PARA CLASSIFIOACAO 



SUB-ROTINA DE ENTRADA DE DADOS 



'[NTS 



'ENTRE NOME DA TURMA 
2540 IF LEN(NTl)>ii THEN 2530 
2550 A=0 

2560 INPUT "ENTRE NOME DA DISCIPLINA " t NMS:IF LEN<NMS)>24 THEN PRINT 
NOME DA DISCIPLINA DEVE TER ATE 24 CARACTERES"=GOTO 2560 
2370 INPUT "ARQUIVO EM (D)ISCO OU <F)ITA "5DV*sDVl=LEFTl<DV<t 1) 
2580 IF DUi="D" OR DV4="F" THEN 2590 ELSE 2570 
2590 RETURN 
2600 REM 
2610 REM 
2620 REM 
2630 INPUT 



SUB-ROTINA DE LEITURA DE ARQUIVO DE DISCO 
ENTRE NUMERO DO DISCO (0/i) "-DN* 



2640 IF DN*="0" OR DNS="i 

2650 CLSsPRINTS) 460, "L E N 

2660 ARS="T"+NTS+"="+DNS 

2670 OPEN "I",1,ARS 

2680 1=0 

2690 IF EOF(i) GOTO 2750 

2700 INPUT ttl,M$<I,2>,M«<I,3) 

2710 PRINTSt32,USING"8ttM" f I; 

2720 IF 1=0 THEN NMS=MS(I,3) 

2730 I=I+i 

2740 GOTO 2690 

2750 A=I-1 

2760 CLOSE 

2770 RETURN 

2780 REM 



THEN 2650 ELSE 2630 
DO DADOS DO D 
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CORRIGINDO PROVAS NO MICRO 



PARA (T) RANSFERIR 



Esta rotina possibilita transferir ar- 
quivos de um equipamento para outro, 
do disco para fita e vice-versa, para o 
mesmo equipamento, de um disco para 
outro ou de uma fita para outra. 

Para efetuarmos a transferencia, sSo 
pedidos os seguintes dados: 

— equipamento onde esta o arquivo a 
ser transferido, disco oufita; 

— o equipamento para onde ser£ trans- 
ferido o arquivo, disco ou fita; 

— o nome da turma a ser transferida; 

— o nome da turma a ser gravado no 
novo arquivo; 

— se a saida deve ser classificada (por 
aluno ou nota) ou nao; 

— se o equipamento de entrada e/ou 
safda for disco, qual a unidade que 
ser2 usada para leitura e/ou gravacao 
do arquivo. 

O motivo da existencia da quarta per- 
gunta (o nome da turma a ser gravado 
no arquivo de saida) e possibilitar a mu- 
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2800 
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2990 

3000 
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DA FITA' 



REM SUB-ROTINA DE LEITURA DE ARQUIVO DE FITA 

REM 

PRINT "COLOQUE GRAVADOR PARA LEITURA TECLE (P)RONTO' 

INPUT R2SS 

CI..SsPRINTa460,"L ENDO DADO 

1=0 

INPUT tt-i,CTl,CM* r M*<I,2) ,MS<I,3> 

IF CT*="FIM" AND 1=0 GOTO 2850 ELSE IF CT%="FIr4" THEN 2920 

IF 1=0 PRINT5)9AO f STRING3i(63," ") ? :PRINTSI 98i-INT( <LEN(CT1)+LEN<CM*> 

"LENDO " p CT*j" DISCIPLINA DE ";CM% t 

IF 1=0 AND T%="T" AND 0TX=NTi> THEN NM»=CM*= GOTO 2900 

IF CT%=NTS AND CMS=Nr1* THEN 2900 ELSE 28S0 

PRINTS 32 r US INC "H««" s I f 

1 = 1 + 1= 00T0. 2850 

A=I-.ts RETURN 

REM 

REM SUft-ROTINA DE SAIDA EM IHPRESSORA 

REM 

LPRINTsLPRINT TAB < 10 ) "NOTAS TJ.RADAS PELOS ALUNOS DA TURMA ";NT$ 

L.PRINT TAB<i5) "NA DISCIPLINA DE ";NM* 

LPR INT TAB ( 20 ) "ALUNO" t TAB < 41 > "NOTA" ; 

LPRINTsLPRINTs 

FOR 1=1 TO A 

LPRINT MS(IXCI) ,2) f TAB(40> USING"Htttt .««"; VAL(MS< IXC I ) , 3 ) ) 

NEXT I 

CLS:PRINT31 4&8 T "F IM DA I. M P R E S S A 0" 

FOR L=0 TO 900:NEXT L U 

RETURN gg 
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dan9a do nome, se quisermos corrigi-lo 
ou renomea-lo, Caso a classificac^To na'o 
seja pedida, o arquivo de saida contera 
os dados na mesma sequencia em que 
foram lidos. Para eliminar um arquivo 
do disco, devemos utilizar o comando 
KILL do DOS. Quando nenhuma outra 
transferencia for requerida, o programa 
volta a pergunta inicial. 



Lawrence Falconer King 6 programador h& 
cinco anos e meio, trabalhando na a'rea de 
transmissao de dados internactonais, mats es- 
pecificamente no SICRAM (Sistema Compu- 
tarizado de Retransmissso Automa'tica da 
Mensagens), tendo ministrado cursos de ope- 
racao, software e tinguagem Assembler re/ati- 
vos a esse sistema, na EMBRA TEL. 



KSR BI-DIRECIONAL Ml 

O unico terminal teleimpressor fabricado no Brasil. 



A ISA, Industria de Impressoras S/A, acaba de lancaro 

primeiro teleimpressor genuinamente brasileiro. Sua alta 

tecnologia eletronica, prova na pratica sua capacidade 

de trabalho. Imprime por matriz de pontos 9x7, 

permitindo ate 8 copias impressas, com uma 

velocidadede 100C.P.S. Equipado com ^*f£&- 

memoria standard de 2 K caracteres, /^j&fyfy..'' > . ^; 

utilizando formulariocontinuo, /■ "S^- -V '."■',. y? 

folhas soltas ou bobina de papel. / 

De 64 ate 132 caracteres por &■;': -jm 

linha, com interface serial ^X^^ 

RS 232 elo de corrente e ^z^-zmk 

paralelo. Sua velocidade 

de comunicacao e de 

50 a 9.600 B.P.S. 

8 dilerentes 

tiposde ^*^i,, v , 

impressao. " ^U^; 






Conhe?a mais 

detalhes do 

Teleimpressor 

KSRna 



INDUSTRIA DE IMPRESSORAS S.A. 

Escritorio; 

H. Prof. Jose Marques da Cruz, 234 

Fabrics: 

Rua Centro Africana, 74 

Tels.: (01 1) 240 2442 543 4939 

Telex: <011>36926ILIM BR 

Sao Paulo- SP 



OECODfiTfl 



MATRIZ: Riode Janeiro- R. Republics do Libano, 61 - 12° and. 

Tel.: (021) 221-4677 ■ Telex (021) 30167 

FILIAIS: S.Paulo R. Frei Caneca, 1119 Tel.: (011) 2B4-B311 Telex (011) 22191 

Brasilia SCS 02 Bloco C n? 41 SL.01 - Tel.. (061 > 225-1588 - Telex (061) 1750 

Porlo Alegre Rua Santa Terezinha, 300 Tel,: (05 1)32- 3564 - Telex (051) 2144 

Golanla Belo Horlionte Salvador 



ESCOLA DO FUTURO. HOJE! 



A DJGITUS-INDUSTRIA DE COM PUTADORES tern procurado atender 
ao usuArio do DGT-1000, colocando no mercado novos equipamentos 
que aumentam a versati/idade do microcomputador. 
E com esse objetivo, que a DIGITUS langa aUCTE- urn mddulo que 
acoplado ao DG T-1000 iti atender aos profissionais principalmente 
da Area educacional. 




UCTE- Unidade Controladorade Terminals Educacionais. 



DIGITUS- 

Rua G&vea, 150 Belo Horizonte 

tel: (031) 332.8300 tx: 3352 

Rio de Janeiro — RJ. 

tel: (021) 257-2960 



Esta unidade permite a comunicagBo entre um DG T-1000 central com at£ 16(dezesseis) DG T-1000 secunda'rios 

atrave~s da porta de cassete. 

Os dezesseis terminals poderBo sercomputadores na configuragio minima, pois sendo a comunicagSo atrav6s 

da porta de cassete nSo 6 necess&rio qualquer modificagSo nos terminals. 

computador central, comandado pelo instrutor, deverA teruma configuragio minima de 48KB de memdria e 

um Disk-Drive. 

sistema permite ao instrutor carregar programas nas estagdes individuals, podendo aplicar provas e teras 
respostas automaticamente gravadas no disquete, para posterior avaliagSo. 

Nas estagdes individuals, os estudantes poder&o gravare carregar programas diretamente no computador do 
instrutor e poderSo tamb6m usaro seu computador independentemente. 

Suas apficag&es sao de grande vatia para centros educacionais, cursos monitorizados, escofas t&cnicas, etc. 
A UCTE facilitate muitooaprendizado em cursos de programagao e operagao de computadores, afem depermltlr 
o ensino em outras Areas. 

A UCTE dispensa o uso incdmoao do cassete eo seu custo 4 menordo que compraros gravadores para os 
terminals. 

OBS.: A UCTEpode ser utlllzada com o DG T-100. Consulte seu revendedor. 
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Conhega dots novos enderegos de memoria do Apple: um deles e capaz de produzir 
diversos sons; o outro, controla o entra-e-sai de informagoes das fitas cassete 




Efeitos sonoros 
e clicks de gravacao 



Rudolf Horner Junior 



Existe na memoria de qualquer 
microcomputador uma serie de 
enderecos que sao utilizados pe- 
lo pr6prio equipamento para re- 
gistrar determinados valores ldgicos do 
sistema. Manipulando-os diretamente, 
vdrias operaQoes tornam-se excepcional- 
mente mais rapidas e faceis de serem ob- 
tidas, e em algumas ocasi5es podemos 
ate realizar pioezas impossiveis de serem 
alcanc,adas com autilizafao unica empre- 
gada em urn determinado equipamento. 
Qualquer bom programa escrito em 
BASIC — e que tenha urn alto grau de 
eficiencia — normalmente usa muitos 
enderecos e rotinas em linguagem de ma- 
quina (comandos POKE, PEEK, CALL 
e URS). Muitos programadores, entre- 
tanto, refutam estas grandes vantagens 
por trazerem com elas um efeito cola- 
teral, quase sempre, bastante grave. Sis- 
temas de software, que embora escritos 
em linguagem de alto nivel usem endere- 
90s especi'ficos de mem6ria e rotinas 
montadas em Assembler na RAM ou ja 
dispom'veis na ROM de cada maquina, 
acabam nSo sendo portaveis de um equi- 
pamento para outro, ou seja, os programas, apesar de escritos 
em uma mesma linguagem, nSo podem ser rodados em equi- 
pamentos de linhas n£o compati'veis. 

Para ilustrar vamos citar um exemplo. £ bastante facil desen- 
volver um programa em BASIC para uma maquina da linha 
Apple que crie um grdfico qualquer. programa ira se tornar 
mais eficiente a mectida em que utilizarmos algumas caracten's- 
ticas especificas do equipamento. No entanto,aomesmo tem- 
po que o tornamos mais eficiente, dificultamos a sua execu$ao 
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alto-falante 



"^ 



He»oria RAH 
(48 Kbytes) 



<4-Henoria ROH-» 
< 1 6 Kbytes) 



Memor 1 * Total 
(64 kbytes) 



Figura 1 



em um computador da linha TRS-80 ou qualquer outro cujas 
caracteri'sticas nao sejam id&iticas as do Apple. Justamente pa- 
ra tentar evitar esta Torre de Babel, os sistemas criados para fun- 
cionar em diversos tipos de equipamento acabam perdendo 
eficiencia para que a portabilidade nao fique prejudicada. 

Mas ainda bem que nossos objetivos nesta sefSo nao sao es- 
tes. Portanto, vamos falar sobre mais alguns enderecos de me- 
m6ria que for am idealizados para que pudessem realizar algu- 
mas tarefas especiais. 

MICRO SISTEMAS, maio/84 



O ENDERE^O DO SOM 



Como ja sabemos, existem no Apple certos enderecos de 
mem6ria que atuam simplesmente como comutadores. Sao en- 
derecos que, quando referenciados em uma instrugao de leitura 
ou escrita, fazem com que algum dispositivo do equipamento 
passe de urn estado a outro. Creio que o exemplo mais facil 
deste tipo de comutadores e o que esta* associado as paginas de 
aha resolucSo grafica. Tratam-se de dois enderecos de memoria 
cuja simples referenda em linguagem de alto ou baixo ni'vel le- 
va a tela do micro a exibir a paglna um ou a pagina dois de alta 
resolucao de graficos. 

Desta vez, porem, falaremos sobre um outro endereco de 
mem6ria que tern um funcionamento similar a estes dois. fi 
mais um endereco constante no grupo das 4096 localizacQes 
de mem6ria especialmente destinadas as funcoes de entrada e 
sai'da. Estamos falando do endereco $C030 (em decimal, equi- 
valente a 49200 ou -16336), o qual esta diretamente vincula- 
do a um pequeno alto-falante de oito ohms que vem dentro da 
caixa das maquinas nacionais compativeis com o Apple II. 

Veja na figura 1 o esquema que define a posicao deste alto- 
falante. A localizacao SCO 30 6 um exemplo tipico de um en- 
dereco comutador. A simples referenda a esta localizacao faz 
com que o cone de papel do alto-falante alteme suas posicoes 
entre para dentro e para fora. A cada referenda ao endereco, 
haver a uma mudanfa do estado do cone entre estas duas possi- 
bilidades, e cada vez que ocorre uma mudanpa de estado o alto- 
falante emite um pequeno click. 

Os manuais que acompanham o Apple e similares explicam 
como obter sons referenciando o alto-falante pelo comando 
BASIC que todos, provavelmente, ja usaram: PEEK (-16336) 
ou PEEK (49200). Qualquer um deles fara com que o alto-fa- 



lante produza um som praticamente imperceptivel. J a se colo- 
carmos um destes comandos dentro de urn loop que o execute 
diversas vezes, o resultado podera ser um som cacofonico bas- 
tante facil de ser percebido. 

Contudo, torna-se dificil procurar emitir notas musicais 
com freqiiencias predsas usando linguagem BASIC interpreta- 
da. E que o interpretador consome um tempo muito grande 
para executar o program a e nossas freqiiencias acabam sendo 
comprometidas. Quando queremos utilizarefeitossonorosmais 
interessantes em nossos programas, somos, via de regra, obriga- 
dos a trabalhar com rotinas em linguagem de maquina cujo 
tempo de execucSo e muito menor que o de programas em 
BASIC. 

Para criarmos uma rotina desta natureza - e que satisfaca 
plenamente nossos objetivos — devemos ter sempre em mente 
o tempo necessano para a execucao de cada comando existen- 
te na rotina; isto para que possamos fazer um numero correto 
de referencias ao alto-falante por unidade de tempo e produzir 
sons das mais variadas freqiiencias. 

E claro que devemos agir tambem com bom sen so. Se voce 
criar uma rotina que simplesmente referencie o endere50 
SC030 e na instrucao seguinte volte ao inicio, completando 
um loop, evidentemente voce nao podera ouvir nenhum resul- 
tado. Nao perca de vista o fato de que a frequencia do relogio 
do equipamento e" de 1.023 MHz e que, mesmo que o seu alto- 
falante conseguisse reagir e trocar de estados nesta velocidade, 
seu ouvido humano, por mais apurado que seja, nao consegui- 
ria ouvir sons com frequencia superior a vinte mil Hz. Se a ro- 
tina funcionasse, ela so poderia produzir ultra-sons. 

Vamos ver agora duas rotinas em linguagem de mdquina que 
foram criadas para uso em programas de jogos e que tiveram de 
ser elaboradas dentro deste espi'rito. Veja inicialmente a lista- 
gem em Assembler da figura 2 . Temos uma rotina que servira 
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EFEITOS SONOROS E CLICKS DE GRAVApAO 



0300- 

0303- 

8306- 

0389- 

030B- 

030D- 

030F- 

0311- 

0313- 

8315- 

03 1 S- 

031B- 

03 1 D- 

831E- 

0320- 

0322- 

0324- 

0326- 

0329- 

032A- 



20 
20 
20 
A 9 
S5 
A9 
S5 
A9 
30 

e:e 

CE 
A6 

CA 
D0 
C6 
F0 
E6 
4C 
60 
00 



09 
89 
89 
00 
FT 
FI- 
FE 
00 
C0 
30 
38 
FF 

FD 
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85 
FF 
11 



83 
83 
83 
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CD 
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DEX 
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RTS 

8RK 
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*CD30 
$FF 

$8310 

$FE 

$8329 

*FF 

$8311 



Figura 2 

para produzir o disparo de uma arma futurista, urn rev61ver de 
raio laser. Observe, na listagem, as referencias ao endere90 
$C030. Veja tambdm porque a rotina, quando executada, dara - 
a impressao de um som com diversos pulsos. As tres primeiras 
instrucoes contem uma chamada a propria sub -rotina de cria- 
c£o do efeito sonoro. Por este motivo, ele seriexecutado varias 
vezes. 

Veja, na figura 3 , a listagem de um programa em BASIC que 
construira' a rotina para voce. Carregue-o na mem6ria da forma 
como aparece listado, execute-o com um comando RUN e logo 
ap6s use o comando CALL 768 para ouvir o disparo do revolver. 

Experimentada esta rotina, vamos tentar uma um pouco 
mais complicada. Vamos carregar a nova rotina na mesma posi- 
cSo que a anterior: a terceira pagina da mem6ria RAM do 
Apple. A nova rotina esta* listada na figura 4. Como voce* pode 



100 DATA 32,9,3,32,9,3,32,9,3,16 
9,0,133,255,169,255,133,254, 
169,0,48, 192,238,48, 192,206, 
48,205,166,255,202,208,253,1 

98,254,240,5,230,255,76,17,3 
,96 

110 FOR A = 768 TO 809: READ B: POKE 
A,B: NEXT : END 



Figura 3 

ver, ela € bem mais cheia de detalhes que a anterior. O objetivo 
desta vez 6 obter o efeito sonoro de um heUcoptero voando. 

Se preferir o BASIC, use o programa da figura 5: ele carre- 
gara a rotina para voce. Digite-o exatamente como esta listado, 
execute-o com o comando RUN e, em seguida, execute a roti- 
na em linguagem de maquina que foi carregada na memdria. 
Comande CALL 768 e ouca, por alguns instantes, o som da he- 
lice de um helicdptero golpeando o ar. 

Ai esta". Nao existe limite-para os efeitos que podem ser ob- 
tidos com o uso do endereco de memoria vinculado ao alto-fa- 
lante. Basta apenas um pouco de cuidado e imaginaca'o. 
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REGISTRO DE INFORMA^OES EM FITA 



Vamos dicutir agora o processo utilizado pelo Apple para 
registrar informacoes em uma fita magne'tica. Este processo 
tern a ver com o nosso assunto pois trata-se do uso de uma lo- 
calizacao de mem6ria com funcionamento similar ao que aca- 
bamos de descrever. 

Todos sabemos que na parte traseira de nosso micro temos 
dois conectores denominados Z/V e OUT, cuja funcSo e\ respec- 
tivamente, receber e enviar informacoes para um equipamento 
de gravacao em fita magnetica, um gravador cassete por exem- 
plo. Na realidade, ao conector OUT C associado um endere9o 
de mem6ria da mesma forma como d associada uma localiza- 
cao ao alto-falante. O endereco associado ao conector OUT 
corresponde a localizacao SCO 20 (em decimal, 49184 ou, 
-16352). 

Fazer referenda a esta posicao faz com que a voltagem do 
conector OUT mude de zero para 250 mv. Se existir um equi- 
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Figura4 
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100 DATA 160,35,32, 8, 3, 136.203, 2 

50,169,1,133,255,169,69,133, 
254^169,8,141,48,192,238,48, 

192,166,255,202,208,253,198, 
254 240 5 

110 DATA 230,255,76,16,3,169,18, 
133,8,169,32,133,6,169,3^133 
,7, 141, 48 ,192, 238, 48, 0,206, 4 
8,192,198,6,208,2,198,7,208, 
248, 198, 8 , 208, 227 , 96 

120 FOR A = 768 TO 839: READ B: POKE 
A a B: NEXT : END 



Figura 5 

pamento de gravacao, serd registrado em fita um pequeno 
click. Da mesma forma que na producao de musica, ao referen- 
ciarmos a localizacSo SC020 continua e repetidamente, pode- 
remos produzk. na fita, um torn de gravafao. Pela variacao de 
duracao e amplitude deste torn, a informacao poder£ ser codi- 
ficada. 

Existem, no programa monitor da ROM, rotinas para codi- 
ficar informacoes em fita cassete que sffo usadas para execu- 
tar os comandos do monitor READ e WRITE. As mesmas ro- 
tinas sao utilizadas para executar os comandos LOAD e SAVE 
do BASIC Applesoft. 

Para o procedimento de leitura de informacoes, temos o 
processo inverso. Uma rotina em linguagem de m&quina veri- 
fica o sinal exjstente no conector IN e, atraves da inspecJEo da 
localizacao de memoria $C060 (em decimal equivale a 49248 



ou —16288), pode-se ouvir os tons que foram originalmente 
gravados na fita. Da interpretacSo destes tons, o computador 
pode recuperar as informacoes que haviam sido registradas an- 
teriormente. 

Como vimos, devemos usar, portanto, os enderegos SC020 
para registrar as informacoes e SC060 para recuperd-las. li im- 
portante, porem, observar um detalhe: para que se produza um 
click no conector OUT, basta que se faca uma referenda ao en- 
dere9o SC020. Esta referenda poderia ser de duas espe'cies: 
uma de leitura (em Assembler, LDA; em BASIC, PEEK) e ou- 
tra de escrita (em Assembler, STA; em BASIC, POKE). 

Uma referenda de escrita nao poderia ser usada pelo proces- 
sador 6502 (devido ao sistema utilizado) para gravar dados nu- 
ma localizacao de memoria: primeiro ele IS o conteudo desta 
localizacao para depois gravar nela o valor desejado. Isto signi- 
fica uma dupla referenda e, consequentemente, dois clicks ao 
inves de apenas um como seria correto. 

fi claro que com estes endere90s poden'amos criar as nossas 
pr6prias rotinas para registrar e recuperar informacoes de um 
gravador de fita. No entanto, estas nao poderiam estar em lin- 
guagem BASIC, uma vez que o interpretador nao seria sufiden- 
temente rapido para ler e interpretar as variacdes dos estados 
das localizacoes de mem6ria associadas aos conectores IN e 
OUT. As rotinas teriam que estar escritas em linguagem de ma- 
quina. ■ 



Rudolf Horner Junior cursa CiGncta da Computapao na Unicamp e 4 $6- 
cio da Potential Software, firma que produz programas especiais para 
microcomputadores em Campinas, SP. 



M6NICA 




ALICE 




80 posicoes de imp res sao (normal), bidirecional,velocidade 
de lOOcps, densidade horizontal 5 a 16,7 cpp, form, 
em ate 5 vlas. Interface paralela. Modulo opcional de alta 
resolucao grafica "bit image" (enderecamento das agulhas) 
e quail dade de impressao carta. 

A IMPMESSORA COMPLETA E DE MENOR CUSTO DO 
MERCADO. 



132 posicoes de impressao 
(normal), bidirecional, 
velocidade de lOOcps, 
densidade horizontal 5 a 
20 cpp, form, em ate 5 vias. 
Capacidade grafica de 72 x 
7S pts por polegada. Interface 
paralela ou serial. 

PARA QUEM NAO PODE ABR1R 
MAO DE FORMULARIOS DE 132 
POSICOES. 



132 posicoes de impressao 
(normal), bidirecional, 
velocidade de 200 cps, 
densidade horizontal 5 ou 
10 cpp, form, em ate 7 vias. 
Interface paralela ou serial. 

PARA MICROS OU 
M IN ICO MP LIT ADORES, O 
COMPROMISSO DE VELOCIDADE 
E ROBUSTEZ. 



VENDA-LEASING-ALUGUEL 



PRONTA ENTREGA DE TODOS OS MODELOS 



OOTpJit 



INFORMATICS 



Rua Sete de Seteftibro, 991 J J. ° andar 

INFORMATICA EMPRESARIAL LTDA. cep 20050 tcl-pbx mn 224.7007 



TK2000 
no mercado 




TK2000 

Apresentado ao publico du- 
rante a Feire de Informatica do 
ano passado, se encontra agora 
disponfvel no mercado o TK 
2000, computador colorido da 
Microdigital. O 2000 nab etotal- 
mente compatfvel com o Apple, 
mas poder£ rodar programas ge- 
rados em BASIC para essa linha 
de computadores desde que se- 
jam feitas algumas mudancas 
nos enderegos da ROM. O equi- 
pamento possui dois formatos 
de gravacao em fita casseie: o 
seu pr6prio formato e outro 
compatfvel com o da linha 
Apple. 

A UCP do novo micro traba- 
Iha com tnicroprocessador 6502, 
de 8 bits. O TK 2000 tern 16 
Kbytes de memoria ROM e 64 
Kbytes de memfiria RAM, dis- 
ponfveis para o usuaYio, seu te- 
clado e profissional, com 54 te- 
clas, e o novo equipamento da 
Microdigital pode ser ligado di- 
retamente a uma teievisao colo- 
rtda, sem que seja necessaria 
qualquer alteracao na TV. O 
2000 possui safda para sinal de 
video, podendo ser ligado a urn 
monitor profissional, e tambem 
safda de um canal de som pels 



TV. O display do vfdeo e apresen- 
tado em quatro modos. No mo- 
do texto, com formato de 40 ca- 
racteres X 24 linhas; modografi- 
co com formato de 40x48 ;modo 
grafico de alta resolucab com 
formato de 280x192 pontos e 
display texto de alta resotucao. 
Em sua configuracab bdsica, o 
TK 2000 vem com safda RF, 
safda para monitor de vfdeo 
preto e branco ou a cores, safda 
para grevador cassete e interface 
paratela tipo Centronics para im- 
pressora. Na versab b&tca, pos- 
sui monitor Disassembler e mini- 
assembler em ROM. O novo 
equipamento da Microdigital 
pode ser encontrado em vaYias 
lojas de revenda de microeom- 
putadores e seu preco e" de 
Cr$ 849.850,00 (preco deabril). 
Quanto aosoftware I parao2000, 
ja se encontram disponfveis os 
seguintes programas: Controls 
de Estoque; Cadastro de Clien- 
tes e Mala Direta; Contas a Pa- 
gar; Contas a Receber; Controle 
Bancario; Multiplan, e os jogos, 
multi-invader; sabotagem; pani- 
co; auto-estrada; corrida; papa- 
tudo e ataque, todos da Micro- 
soft. 



Pacote topografico 
da Codimex 



Seguindo sua polftica de 
spoio ao usuaYio profissional, 
a Codimex esta" oferecendo, a 
n fvej nacional, um pacote des- ■ 
tinado a aplicaicdes na Area de 
Topbgrafia, o qual inclui um 
micro Codimex -6809 com 32 
Kb e uma unidade de disco, 
uma impressora Ecodata bidi- 
recional com 1 00 CPS e progra- 



mas para CdtculO de Poligonal, 
Caiculo de Area e outros espe- 
cfficos que descobrem erros 
eventuate de caiculo delngulp 
e medida cometidos no campo. 
Para matores informacoes, o 
endereco da Codimex e Ay. 
Wenceslau Escobar, 1 549, Vila 
AssuncSo, Porto Alegre,RS. 




A famflia I 7000 



O novo integrante da famflia 
I 7000, da Itautec, o Junior, 
apresentado ao publico durante 
a ultima feira de Informatica, te- 
ve seu lancamento comercial no 
final de marco. O novo micro- 
computador da Itautec foi desen- 
voivido em duas versQes: I 7000 
Junior e I 7000 Junior E. A di- 
ferenca bSsica entre os dois mo- 
delos esta" no tec! ado. Alem do 
teclado tipo maquina de escre- 
ver com caracteres em portugues, 
do modelo ma is simples, o Junior 
E possui tambem um teclado 
numenco separado e pode traba- 
Ihar com disquetes de 5" ou 8". 
Juntamente com o lanpamento 
do Junior, a Itautec apresentou 
um conjunto de servicos tais 
como assistencia tecntca; centro 
educacional para cursos e treina- 
mento; centro de atendimento 
ao usudrio, para atender as duvi- 
das de clientes por telefone ou 
telex e um catalogo com 161 
programas aplicativos desenvol- 



vidos por 44 software-houses 
credenciadas pela Itautec. Os 
tre"s equipamentos da Itautec 
sao total mente compati'veis en- 
tre si, e a migracsb do Junior pa- 
ra o Junior E e para o I 7000 se 1 ' 
da atraves de um kit de expan- 
sab. O I 7000 Junior, em seu 
modelo basico, 6 composto por 
UCP com 64 Kbytes, vfdeo de 
f6sforo verde e drive para dois 
disquetes de 5 1/4", custando 
450 ORTN. Na mesma confi- 
guracab, o JrE custa 480 ORTN. 
Segundo Ronaldo de Campos 
Melo, Diretor de Marketing da 
Itautec, o Junior devera atingir 
um publico formado por peque- 
nas e me'dias empresas, escolas e 
profisstonais liberals. Com este 
I ancamento, a meta da Itautec 
para este ano e de comercializar 
64 mil microcomputadores pes- 
soais, atingindo 1 5% do merca- 
do, e um faturamento de Cr$ 
80 bilhdes contra 14 bilhoes de 
1983. 



Brasil ja tern light-pen 




A Prisma, uma divisao de 
produtos da Macromicro, lan^ou 
recentemente no mercado 
brasileiro a LP 200, primeira 
tight-pen fabricada no Brasil. 
Para quern ainda nab conhece, 
a light-pen permite o acesso 
a dados di ret amen te na tela do 
monitor, substituindo o teclado 
nas tarefas de selecao de cores, 
dados e desenhos, que passam 
assim a ser feitas diretamente no 



visor do microcomputador. 
Por enquanto apenas os usuanos 
da linha TRS-80 poderab 
utilizar a LP 200, mas a Prisma 
promete para breve um modelo 
especffico para a linha Apple. 
Quaisquer duvidas sobre como 
utilizar ou tirar o melhor 
proveito do produto podem ser 
esclarecidas pelo telefone 
(011)572-3304. 
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Micromaq investe 
na area de cursos 



A Micromaq, uma das primeiras lojas 
especial izadas em microcomputadores asurgir 
no Rio de Janeiro, lancou recentemente um 
curso de T£cnicas Digitais e Eletronica, 
incrementando o que para a loja 6 um dos 
pontos fortes: a area de cursos. Como diz 
Edson Abid, engenheiro civil e um dos sOcios 
da empress, "a concorrSncia e" grande e sobre- 
vive quern nab se limitar a vender software e 
hardware. £ preciso estar sempre na vanguar- 
da e pensar a tongo prazo". 

Periodicamente a Micromaq oferece cursos 
de BASIC basico, BASIC avancado. Hardware 
(L6gica Digital) e Micros para Criancas. Ale"m 
destes, mantem uma equipe especial, respon- 
savel pel os cursos nas empresas. "Estamos 
tambe*m cedendo nosso espaco para reunifies 
de um clube de usuarios do TK82-C e do 
Color 64 ", lembra Edson. 



Mas nab 4 s6 no setor de cursos que a loja 
esta* investindo. Em sua sede funciona uma 
oficina especializada capaz de dar assistencia 
tecnica a qualquer computador nacional ou es- 
trangeiro, atendendo a pedidos do Brasil intei- 
ro, e foi justsmente la que o Color 64 foi 
desenvolvido e lancado. 

A loj8 comercializa equipamentos de 
varios fabricantes nocionais, acompanhadosde 
perifericos para todas as marcas, suprimentos e 
impressoras. Na parte de software, possui 
jogos educativos e de animacab e desenvol- 
ve aplicativos para os TK, Color 64, Microen- 
genho e tambgm para a linha Apple em geral. 
O endereco da Micromaq 6 Rua Sete de Se- 
tembro, 92, Ij. 106, Centro, tel.: (021) 222- 
6088, Rio de Janeiro, RJ. 




Edson Abtb: "Scbrevive quem na~o se limit a 
a vender software e hardware, " 



Plotter HP para sistemas 

cad/cam . -'".::■': 



A Hewlett-Packard acaba de 
lancar um tracador de grdficos 
para aplicacoes em projetos de 
circuitos integrados e impressos, 
mecanicos, arquitetura e enge- 
nharia civil. Na opinisb de Brian 
Moore, Gerente Geral da divisao 
deSan Diego da Hewlett-Packard, 
"o HP7586B completa a nossa 
famflia de produtos para dese- 
nho grafico, atendendo prattca- 
mente a todas as exigencias dos 
usuarios de CAD/CAM". 

O HP7586B trabalha com fo- 



Ihas de papel tamanhos A4/A ate 1 
AO/E ou com rolos de papel 
com largura de 26.7 a 91.9 cm 
e comprimento de 45.72 m, per- 
mitindo assim desenhos contf- 
nuos. Possui resolucao de 0.025 
mm para enderecamento e reso- 
lucao mecanica de 0,003; sua ve- 
locidade 6 de 60 cm/seg e a ace- 
leracao da pena 6 de 4 g. Com- 
patfvel com os equipamentos 
HP, o novo plotter tambem po* 
de ser usado em alguns compu- 
tadores de outras marcas. 



Clube 
de manutencao 



A M.S. Industria Eletronica esta lancando um clube de manuten- 
cao para possuidores de micros nacionais e importados. Entrando 
como associado, o usudrio tera" direito a dois check-ups gratuitos por 
ano, mao-de-obra gratuita em qualquer conserto ou substituicso de 
pecas e assinatura de uma revista tecnica, entre outras vantagens. 0s 
s6cios do Clube de Manutencao MS receberao trimestralmente uma 
tabela de descontos para compra de equipamentos em loja especiali- 
zada em micros e descontos especiais para cursos em escolas creden- 
ciadas pelo clube. O Clube M.S. esta" aberto somente a pessoas f fsi- 
cas, e maiores informacoes a respeito podem ser obtidas na propria 
M.S., rua Dr. Astolfo Araujo, 521 — Ibirapuera/Sao Paulo. Tel.: 
(011) 549-9022. 



jSTRINGSi 



* A Cobra Computadores e Sistemas Brasileiros S.A. esta iniciando a 
operacao de seu Centro de Computacao Gra~f ica (Computer Aided De- 
sign) que permitira' uma significativa reducao do ciclo de desenvolvi- 
mento de seus produtos. A instalacao do Centro visa gararttir que a 
empresa atinja seus objetivos para o bienio 84/85, entre os quais se 
destaca o desenvolvimento do supermmicomputador de tecnologia na- 
cional. * Foi inaugurada recentemente na Rua Sao Januario, 907, 
em Sab Crist6vab, no Rio de Janeiro, a CI TEC — CiSncia e Tecnologia 
Livraria e Editors Ltda. que inicia suas atividades como distribuidora 
de livros tecnicos e didaticos em gerai. Com mais de 500 tCtulos na 
Srea de computacao, a CITEC esta atendendo pedidos de catalagos 
atrav^s do Service de Reembolso Postal ou pelo telefone (021 ) 580- 
0034. + A Nashua do Brasil acaba de lancar a copiadora 3025, que 
ttra 25 copias por mtnuto nos formatos A4, offcio e Diario Oftcial. 
equipamento trabalha simultaneamente com dois cassetes de papel de 
tamanhos diferentes, tern memoria, painel digital e porta-clips magne- 
ttco. Aceita originais de art 254x356 mm ou maiores, gracas a tampa 
destacavel. Seu preco, de Cr$ 9 milhoes e 850 mil, inclui os impostos, 
e a prestacao mensal de leasing situa-se por volta dos Cr$ 350 mil. * 
A ADP Systems esta" se preparando para ministrar cursos por area de 
atuacao {medicina, engenharia, comunicacao, etc.) a partir do segun- 
do semestre deste ano. Estab sendo iniciados tamtam na ADP cursos 
de p6s-graduacao de ex-alunos. O primeiro, de uma serie voltada a 
produtos usuais, sera o CICs, destinado a aumentar a produtividade. 
JA na parte de especializacao profissional, sera desenvolvido Auditoria 
de Sistemas. * Prestando mais um service aos usuarios da linha TK, a 
Microdigiial Eletronica coloca a disposicab o telefone de sua filial para 



assistencia tecnica em Porto Alegre: 24-5060. O endereco 6 Av. Borges 
Medetros, 410, bloco II, 119 andar, conjunto 1108. # Ja esta sendo 
comercializado o CP500/M, a nova placa CP/M daProgus Ciberne'tica 
Ltda. O CP/M torna o CP-500 compatfvel a nfvel de disco com o Sis- 
tema 700, tendo sua capacidade aumentada de 162 K para 190K. # 
A Informax Assessoria e ComeVcio de Microcomputadores Ltda, que 
comercializa equipamentos da Prol6gica, Microdigital e Unitron, mu- 
dou-se para a Av. Brrgadetro Faria Lima, 1390/cj. 82-Jd. Paulistano, 
tel: (011) 814-0682. # A ABC Bull Telematic entregou A CTBC, 
Companhia Telefonica da Borda do Campo, o computador DPS-TL, 
com 4Mb de memiria, 60 terminals de vfdeo, quatro impressoras de 
100 LPM e quatro unidades de fita magnetica. Esses equipamentos 
executam todos os servicos admini strati vos da CTBC, e possibilttam a 
agilizacao do atendimento aos cltentes. + A Tecnocoop Industrial 
lancou no me read o sua linha 9000 de impressoras composta petos mo- 
delos TEC 901 1 e TEC 9015, com velocidade de 1 100 e 1500 LPM 
respect ivamente. A empresa pretende comercializar esse ano 200 ma- 
quinas dos novos model os. Em Sao Paulo, a Tecnocoop Industrial 6 
representada com exclusividade pela OPT Informatica, e no Rio maio- 
res informacoes sobre as impressoras da linha 9000 podem ser obtidas 
na pr6pria Tecnocoop, rua do Carmo, 1 1/4P andar. # O Centro 6th 
co Come'rcio e Industria Ltda., tradicional revendedor mineiro de len- 
tes de contatoearmapa'o de oculos, inaugurou recentemente um show- 
room para vendas e demonstracoes de micros. Al^m de hardware, a 
empresa tamb^m comerciarj software (inclusive por encomenda), dar£ 
orienta^ao tecnica e cursos noturnos de linguagem BASIC. Informa- 
coes pelo telefone (031 ) 225-2599, ramal 42, Belo Horizonte, MG. 
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DF ineeniiva 
criagao de soft 



A Companhia de Desenvotvi- 
mento do Planalto Central — 
Codeplan esta para implantar, 
em Brasilia, uma software-house 
publica, que ira" permitiraos pro- 
fissionais de software que na"o 
dispoem de equipamentos de- 
senvolver os seus programas, 
sem nenhum 6nus, em miquinas 
cedidas palo governo do Oistrito 
Federal. 

Para tanto, a Codeplan esta" 
instalando um centro de proces- 
samento de dados que irdfuncio- 
nar 24 horas por dia, os sete dias 
da semana. Os gastos com im- 
plantacao e manutencSo do cen- 
tro, tais como suprimentos, ener- 
gia ele'trica, pessoal e seguranca 
correrao por conta do governo 
do Distrito Federal, enquanto 
que os equipamentos deverao 
ser fornecidos pelos fsbricantes, 
que tambem serao responsive! s 
pela sua instalacao e manuten- 
cao. Esses equipamentos pode- 
ra*o ser desde microcomputado- 
res ate terminals de vfdeo liga- 
dos a grandes computadores ins- 
talados remotamente. 

O sistema ira" funcionar da 
seguinte maneira, de acordo 
com documento divulgado pela 
Secretaria de Governo do DF: 
qualquer cidada"o do DF, desde 
que cadastrado na Codeplan atra- 



ves da entrega de curriculum 
adequado, poderSapresentar um 
projeto para o desenvolvimento 
de software aplicativo. Em pra- 
zo nunca superior a 72 horas, a 
Codeplan ju (gars' se o projeto 6* 
aceitavei ou na*o e, em casoafir- 
mativo, indicara o equipamento 
& o horario que estarao reser- 
vados ao interessado, bem como 
o total de horas em que ele po- 
dera" dispor do equipamento (es- 
se total podera" ser ampliado em 
ate 50%, a criterioda Codeplan). 
O software desenvolvido sera" 
propriedade de quern o desen- 
volveu e, ao termino da impte- 
mentacSo, a Codeplan analisard 
a sua viabilidade comercial. 

A criacao da software-house 
publica faz parte de um esforco 
que o governo do Distrito Fede- 
ral vem realizando com vistas a 
estabelecer em Brasilia um p6lo 
de Informatics, sobretudo no 
que diz respeito a industria de 
software. No ano passado, den- 
tro do de um piano de moderni- 
zacao admin istrativa, o governo 
da capital federal gastou perto 
de Cr$ 2 bilhSes em produtos e 
servicos de Informatics, sendo 
que 60% desses recursos desti- 
nou-$e a contratacao de softwa- 
re-houses locais. 



Comunicacao de dados 
cresce 90% em 1983 

A comunicacao de dados foi o segmento que mais cresceu em 1983 
dentre os servicos oferecidos pela Embratel: 90%. De acordo com a em- 
press, os circuitos nacionais faturados, que totalizavam 1 mil 999 em 
1982, chegaram a 3 mil 649 em fins do ano passado, atendendo a cer- 
ca de 900 empresas espalhadas por mais de 200 localidades do pafs. 
Na area internacional, os servicos Airdata, Interdata e Findata eram 
utilizados, em dezembro de 1983, por mais de 100 usuanos. De 1979 
a 1983, os servicos de comunicacao de dados apresentaram um cresci- 
memo anual medio de 1 79%, informou a Embratel. 



DGT-1000 na escola 

A Digitus acaba de lancar, para o DGT-1000, uma Unidade Con- 
troladora de Terminals Educacionais (UCTE) que permite a comuni- 
cacSo entre um micro central e 16 secunda>io$ atraves da porta de 
cassete, visando incentivar a utilizacao de seu novo equipamento em 
centros educacionais, cursos monitorizados, escrit6rios etc. 

O sistema permite ao instrutor, via computador central, carregar" 
programas nas estacoes individuals, podendo aplicar provas e obter 
as respostas automaticamente gravadas nos disquetesde seu compu- 
tador para posterior avaliacao. Nas estacoes, os digitadores ou estu- 
dantes tambem podem gravar programas diretamente no computa- 
dor do instrutor e ainda utilizar o seu equipamento independente- 
mente. 

A configuracao necessana para o DGT-1000 central 6 de 48 Kb 
de mem6ria e disk drive; os outros 16 micros podem ser de configu- 
raca"o mmima, ou seja, UCP de 16 Kb e monitor de vfdeo. 

Ringo com impressora 



A partir de agora, qualquer 
programs desenvolvido no Rin- 
go j£ pode ser impresso. A Ritas 
do Brasil acaba de colocar no 
mercado a interface que possi- 
bilita a Itgacao do Ringo com 
impressora ou com maquina de 
escrever ele'trica. O Ringo pode 
tambem se comunicar com ou- 
tro computador do mesmo mo- 
delo por meio de telefone, atra- 
ves de Modem. E ja" esta"o dispo- 
nfveis alguns cartuchos para o 
Ringo, entre Os quais 6rga"o, 
que faz com que o usua'rio pos- 
sa compor e executar musicas a 



partir do teclado do micro; Ca- 
dastro, que mantfim na memfi- ««,. 
ria do equipamento todos os da- 
dos sobre clientes e fornecedo- 
res, e o Editor Z 80, para aque- 
les que quiserem desenvolver 
seus pr6prios programas. A Ri- 
tas fornece tambem cartuchos 
virgens para os usuarios que qui- 
serem gravar programas originals 
em ERROM, entre outras coisas. 
Ringo tern uma velocidade de 
gravacao e leitura de fitas de 
2400 bps, bastante rapida para 
um micro de sua faixa. 



Nova fabrica, 
novos perifericos 

A Elebra Informitica, ao completar cinco anos, apresentou sua 
nova fa~brica de perifericos e comunicou o lancamento de seus novos 
produtos. Sa*o eles: duas untdades de disco magnetico Winchester, 
uma de 340 Mbytes e outra de 515 Mbytes, e uma unidade de fita 
magniitica Streammer, com densidade de 1600 a 6250 BPt. Alvaro 
Nascimento, Diretor da Elebra, defende a manutenca'o da reserva de 
mercado para que os investimentos em pesquisa prossigam. Ele afir- 
mou ainda que, de um faturamento estimado em Cr$ 150 bilhdes, 
para esse ano, cerca de 25% virSb da exportacao de placas eletr6ni- 
cas, vendidas para a empresa americana Control Data. Os diretores 
da Elebra garantem que no ano que vem os seus produtos j£ tera"o 
precos competitivos no mercado internacional. Hoje a empresa ex- 
porta para a America Latina, mas pretende atingir tambem os mer- 
cados americano e europeu. 



UNITRON A TODA FOR^A 



"Desconf ie dos precos muito baixos porque 
voce pode estar comprando material encalha- 
do ou de origem duvidosa." A advertSncia 6 
do diretor presidenteda Unitron, Geraldo An- 
tunes, ao referir-seaos iniimeros model os com- 
patfveis com o Apple lancados no mercado re- 
centemente. Segundo Gerafdo, estes novos 
equipamentos a precos chamativos atingem 
principalmente o publico formado por pessoas 
f fsicas e profissionais liberals, o que vem a fir- 
mar ainda mais uma antiga posicao da Unitron : 
dirigirseu produioao^etoTprofissiona!. 

Dentro desta estrategia, a empresa ja esta 
colocando no mercado varios perifericos op- 
cionais, como drive para disquetes de 8", te- 



clado profissional acrescido de num^rico redu- 
zido e um monitor de vfdeo fabricado pela. 
pr6pria Unitron. A empresa estd fornecendo 
tambem a linha compteta de expansoes para o 
seu equipamento, ineluindo o cartao controla- 
dor de instrumentacSo, padrSo HP, que permi- 
te ligar o AP II a aparelhos como analisador 
de assinaturas e scanner, gerador de varreduras 
para controle de processos (ambos fabricados 
pela Hewlett-Packard). 

Entre os pianos para um futuro pr6ximo, 
a Unitron pretende aperfeicoar a Srea grSf ica, 
e neste senttdo ja" estao sendo desenvotvidos 
projetos de vfdeo a cores, software especffico 
para aste setor e prancheta digitalizadora. A 
Srea de CAD 6 um outro setor onde a Unitron 



esta" investindo, visando a obtencao de um 
acess6rio barato para desenho tecnico e desen- 
volvimento de circuitos impressos, entre ou- 
tras aplicacoes. 

Disponibilidadede software para o seu equi- 
pamento e outra preocupacao da Unitron, 
que no momento estd credenciando software 
houses com atencao voltada principalmente 
para as areas de transporte, educacSb, saude e 
hotelarta. "Nossa meta", explica Geraldo An- 
tunes, "6 p rover de software para as varias 
5reas de aplicagao todos os pbntos de venda 
do AP M. Este e o melhor investimento de 
marketing que podemos fazer — software a 
baixo custo para o usuario", conclui. 
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Informatica em Ribeirao Preto 



Com a finalidade de oferecer as empresas 
de computacSb a oportunidade de exporem, 
com vendas diretas, seus produtos e servicos 
no interior de S£o Paulo, o. SEN AC de Ribei- 
ra"o Preto reatizou, de 25 a 28 de abril, a I 
Feira de Informatica da regia~o. A iniciativa 
objetivou ainda proporcionar ao publico con* 
sumidor e em geral a chance de conhecer, 
analisar e aval tar os produtos e servicos ofe- 
recidos pelo atual mercado nacional de In- 
formatica. 

Varias empresas estiveram presentes na 
Feira, entre elas a ProlAgica, Microdigital 
(que aproveitou a odasiffo para lancar no in- 
terior do Estado o Iseu TK2000), Dismac, 
Digitus, Poiymax e Unitron. A grande atra- 



ca"o, no en tart to, ficou por conta da Memo- 
cards, empresa de Ribeirao Preto especial i- 
zada na revenda de microcomputadores e 
perifericos que vem sedestacando naproducao 
de software para as areas comercial, de En- 
genharia Civil e, principalmente, educacional. 
Em seu estande, o maior da feira, a Memo- 
cards demonstrou o trabalho que vem desen- 
volvendo em conjunto com os alunos do 
Colegio Anglo, o qual tern resuttado em uma 
serie de programas especi'ficos para a a"rea 
educacional, tais como: Mapa do Brasil, Ca- 
racterfsticas dos Animais, Verbos e Estdrias 
em lngi@s, fntroducao is Crases e Resumo de 
Vestibulares para Microcomputadores. Com 



excessao deste ultimo, todos os demais pro- 
gramas desta aYea na"o sa"o comercial izados. 
Paralelamente a Feira, realizou-se tambfim 
o II Simposio de Informatica, onde foram dis- 
cutidos temas ligados a evotucSb e perspec- 
tives da Informatics no Brasil. Na oportuni- 
dade, Ademir Potiens, gerente do SEN AC e 
organizador da Feira, assegurou que, sendo 
Ribeira*o Preto urn importartte parque comer- 
cial dentro do Estado, nao pode ficar alheio 
aos progresses da Informatica, e declarou: 
"V arias empresas da regiao ja" esta~o na era da 
computaca'o, mas ainda ha" as que precisam 
melhorar o seu desempenho; esta 6 a nossa 
principal preocupacao ao promovermos even- 
tos desta natureza". 




Nos primeiros dias de abril os jornais de Sao Paulo anunciavam que urn novo micro- 
computador da iinha Apple estava sendo lancado a urn preco especial de Cr$ 1 mrlhao e 
90 mil, com exclusividade no Mappin, urn dos maiores magazines da cidade. Tratava-se 
do Craft II, da Microcraft, empresa j£ conhecida na a>ea de Informatica pela fabricacSo 
de placas para microcomputadores da Iinha Apple. 

A escolha do Mappin, por seu poder de penetracSb junto ao publico consumidor, 
teve resposta imediata: a previsSb de vendas de 150 equipamentos no primeiro mes es- 
tourou nas duas primeiras semanas, e a parti r do mes de maio o micro ja" estara sendo 
vendido tamb(Jm em lojas especial izadas. 

Segundo Jae Yoon, diretor da Microcraft, o objetivo da empresa ao lancar o Craft II 
foi oferecer urn Apple profissional a urn preco intermedidrio entre esta faixae a faixa dos 
pessoais. Sua configuracao basics e* composta por UCP com microprocessador 6502, 48 
Kb de mem6na RAM, 12 Kb de ROM, teclado alfanumerico com auto repetica*o e otto 
slots de expansSb para conexao de cartOes perifericos (todos os cartoes fabricados pela 
Microcraft podem ser conectados diretamente no Craft II). O novo micro tern safda para 
gravador cassete, opca"o para trabalhar com disquetes, e o usuario podera" utilizar uma 
televisSo comum (preto e branco ou colorida} ou monitor de vfdeo. O Craft II e total- 
mente compatCvel, tanto em hardware quanto em software, com o Apple IE e seus simi- 
lares nacionais. 



Computagao 
no escritorio 



As ultimas novidades em equipamentos, 
utensflios e servicos de escrit6rio, inclusive na 
area de processamento de dados e teleproces- 
samento, com tecnologia nacional ou estran- 
geira, sera'o apresentados na nova FUSE — 
Feira Internacional de Utensflios e Servicos 
de Escritorio, que se realizard em Sa*o Paulo 
entre 20 e 24 de junho pr6xtmo. 

Patrocinada pela Federaca~o Nacional dos 
Bancos e pela Federacao Brasileira de Bancos, 
a FUSE estara montada no pavilhSb de ex- 
posicSes do Parque Anhembi e, alem do se- 
tor de autpmacao de escritorios, estard divi- 
dida em comunicaca~o e telecomunicacSb; ar- 
quivo, classificaca"d e microfilmagem; instala- 
cab e mobiliaYio; maquinas de escrever, ca"l- 
culo, contabilidade, processamento de dinhei-- 
ro e cheques, acess6rtos e materiais; contro- 
ls visit ais e relogios; seguranca e controle; 
artigos de papelaria, desenho e escrita; con- 
sultoria e assessoria; brindes; servicos em ge- 
ral; publicacoes; ensino e pesquisa; bancos. 

A Feira funcionara no horario comercial, 
dtariamente, inclusive aos s^bados e domingos. 



Convenio 
SENAI-CTI 



O SENA I SP e o Centra Tecnologico para" 
Informatica assinaram um convenio para a 
realtzaca"o de atividades conjuntas de pesquisa, 
desenvolvimento e produced de maquinas e 
equipamentos didaticos. Esse material serd 
utilizado no ensino de Informatica e Auto- 
macS'o Industrial, como parte de projetos des- 
tinados a formaca'o pelo SEN At de recursos 
humanos para industrias do setor de eletroni- 
ca. A primeira atividade conjunta ja" esta em 
andamento: trata-se do treinamento de tec- 
nicos do SENAI paulista, docentes nas.dreas 
de eletr&nica, mecSnica de precisa*o e instru- 
mentaca"o, al^m de t^cnicos em supervisa"o de 
ensino e material did£tico, nas dreas de ro- 
bdtica industrial e si stem as operacionais para 
microcomputadores. Apos o treinamento, 
esses te'enicos vao desenvolver projetos de 
construca"o de equipamentos did^ticos de au- 
tomaca"o industrial e de equipamentos dida~ti> 
cos para o ensino de informatica. 



Microtecla 

Foi inaugurada recentemente em Franca, 
interior de Sa'o Paulo, a Microtecla, loja espe- 
cializada na comercializacao de microcompu- 
tadores pessoais e profissiohais. Na nova loja 
podem ser encontrados equipamentos da 
Labo, Prol6gica, Dismac, Unitron e Microdigi- 
tal, al4m de suprimentos e livros e revistas da 
area. No departamento denominado Bouti- 
que, encontram-se calculadoras, fitas, jogos, 
relogios-game e vfdeogames. A Microtecla fica 
na Rua Major Caludiano, n9 1.445, Franca, 
Sa*o Paulo, tel.: (016) 722-2820. m 



MS E FEITA 

PARA VOCE 

PARTIGIPE COM 

SUA OPINIAO 

Escreva-nosdi- 
zendo qual a sua 
a>ea de interesse, 
conte -nos tarn- 
b^m as suas expe- 
rignctas com seu 
micro, o que 
voce quer ver 
pubticado em MS, o que voce" acha 
da sua MS, enfim, diga tudo que 
tome MICRO SISTEMAS ainda 
mais feita para voce. 
E lembre-se:todo leitorque nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua optnrao para Redacao de 
MICRO SISTEMAS no Rio de 
Janeiro ou em Safo Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 - Centra - CEP 20030 - 
Rio de Janeiro ■ RJ; Rua Oliveira 
Dtas, 153 - Jardim Paulista - CEP 
01433 -Sa'o Paulo -SP. 




Antes de apticar seu rico dt'nheirinho, calcule, com seu micro da linha 
Sinclair, os juros, o montante ou o capital de investimento. 



Para bom investimento, 
um micro pessoal basta 



Armando Oscar Cavanha Filho 



Este programa, elaborado em um 
TK82-C, tern a fin alidade de cal- 
cular algumas variaveis financei- 
ras a partir de valores conhecidos. 
As variaveis pre vistas no programa sa"o: 
. P — principal, ou seja, o capital no dia 
de hoje (capital no inicio da con- 
tagem dos perfodos de capitaliza- 
cao); 

. S — montante, ou seja, o capital no fi- 
nal do pen'odo (capital no final da 
contagem dos pen'odos de capita - 
lizacao); 

. N — niimero de pen'odos de capitaliza- 
?ao; 

. I — taxa de juros por pen'odo de capi- 
talizacao; 

. J — taxa de juros compostos em N pe- 
n'odos de capitalizactio; 

. R - serie uniforme de pagamentos, ou 
seja, se"rie uniforme de valores de 
retirada ou entrada, sen do cada 
parcela entendida como no final 
de cada perfodo . 

programa funciona de acordo 
com a tabela apresentada na figu- 
ral. 

COMOPROCEDER 

Veja agora, atrave"s de dois exemplos, 
como funciona o programa. 

1 — Quanto teremos daqui a 12 me- 
ses se aplicarmos hoje Cr$ 1.000,00 a 
2,5%aomes? 



a) Sao dados: N = 12, P = 1000,00 e I 
- 2 ,5 ; deseja-se calcular S. 

b) Digita-se o cbdigo que representa o 
problema (no caso, achar S a partir de 
N, P e I, ou seja, c6digo 0). 



DADOS 


CALCULA 


CODIGO 


P,I,N 


S 





S,I,N 


P 


1 


S,P,I 


N 


2 


S,P,N 


I 


3 


P,I,N 


R 


4 


R,I,N 


P 


5 


R,P,I 


N 


6 


R f P f N 


I 


7 


R,I,W 


S 


8 


S,I,N 


R 


9 


R,S,I 


N 


10 


J,N 


I 


11 

.. 



Figam 1 

c) Intro duzem-se os valores na ordem 
pedida. 

d) Obtem-se a resposta: S = 1 344,88. 

2 ~ Um vendedor de carros apresenta 
um Volks usado por Cr$ 100 mil de en- 
trada, mais 12 prestacOes de Cr$ 50 mil. 
O pre9o a vista e de Cr$ 350 mil. Qual a 
taxa de juros do financiamento? 
a) SSo dados: P = 350.000 - 100.000 



= 250.000, N = 12 e R= 50.000; de- 
seja-se calcular I. 

b) Digit a-se 7. 

c) Introduzem-se os dados. 

d) Resposta: I ~ 16,94%. 

OUTROS EXEMPLOS 

3 — Quanto devo pagar hoje para ter 
o direito de receber Cr$ 10 mil daqui a 
cinco anos, a juros de 10% ao ano? 

S= 10.000 

N= 5 

1= 10 

Resposta: P= 6209^1 

4 — Um empresano pretende fazer 
um investimento que rendera" Cr$ 100 
mil por ano, nos pr6ximos 10 anos. Qual 

valor do investimento, sabendo que a 
taxa de juros 6 de 6% ao ano? 

R= 100.000 
N= 10 

1 = 6%aa 

Resposta: P= 736.008,71 

5 _ Quanto devemos depositar semes-* 
tralmente numa conta a prazo flxo, que 
paga juros de 12% por semestre, para ter- 
mos Cr$ 50 mil daqui a sete anos? 

I = 1 2% ao semestre 
S= 50.000 

N^ 7x2= 14 semestres 
Resposta: R= 1543,56 

6 — Quais os juros mensais equivalen- 
tes a 34,4% ao ano? 

J = 34,4% aa 
N = 12 meses 
Resposta: I = 2,49%aomes 
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Cdlculo de Pardmetros Financeiros 



L 



10 REM "FINANCEIRO" 

15 JCLS 

17 PRINT 

20 PRINT "BSTE PROGRAMA CALCUL 
A ALGUNS" 

30 PRINT "PARAMETROS FINANCEIR 
OS :" 

40 PRINT 

60 PRINT " DADOS CALCULA 
CODIGO" 

70 PRINT " P,I,N S 

0" 

80 PRINT " S,I,N P 

1" 

90 PRINT " S,P,I N 

2" 

100 PRINT " S,P,N 1 

3" 

110 PRINT " P,I,N R 

4" 

120 PRINT " R,I,N P 

5 » 

130 PRINT " R,P,I N 

6" 

140 PRINT " R,P,N 1 

7" 

150 PRINT " R,I,N S 

— 8" 

160 PRINT " S,I,N R 

—9" 

170 PRINT " R,S,I N 

10" 

180 PRINT " J,N 1 

11" 

190 PRINT 

200 PRINT "PARA INICIAR, INTROD 



UZA O NUMERO DE CODIGO E NEWLINE 



210 


INPUT COD 






220 


CLS 






230 


IP 


COD=0 THEN 


GOTO 


360 


240 


IF 


COD=l THEN 


GOTO 


480 


250 


IF 


COD=2 THEN 


GOTO 


600 


260 


IF 


COD=3 THEN 


GOTO 


720 


270 


IF 


COD=4 THEN 


GOTO 


840 


280 


IF 


COD=5 THEN 


GOTO 


960 


290 


IF 


COD=6 THEN 


GOTO 


1080 


300 


IF 


COD=7 THEN 


GOTO 


1200 


310 


IF 


COD=8 THEN 


GOTO 


1410 


320 


IF 


COD=9 THEN 


GOTO 


1530 


330 


IF 


COD=10 THEN GOTO 1650 


340 


IF 


COD=ll THEN GOTO 1770 


350 


IF 


COD>ll THEN GOTO 1870 


360 


PRINT "INTRODUZA P' 




365 


INPUT P 






370 


PRINT "INTRODUZA I' 




375 


INPUT I 






380 


PRINT "INTRODUZA N' 




390 


INPUT N 






410 


CLS 






420 


LET S=P*(1+I/100J* 


*N 


430 


PRINT "S=";S 






435 


PRINT 






440 


PRINT "P=" ; p 






445 


PRINT 






450 


PRINT "I=";I 






455 


PRINT 






460 


PRINT "N=";N 






470 


GOTO 1890 






480 


PRINT "INTRODU2A S 


\ 


485 


INPUT S 






490 


PRINT "INTRODUZA I 





495 


INPUT I 




500 


PRINT "INTRODUZA N" 


505 


INPUT N 




530 


CLS 




540 


LET P=S/(1+I/100) **N 


550 


PRINT "P=' 


;P 


555 


PRINT 




560 


PRINT n S=' 


;S 


565 


PRINT 




570 


PRINT "1=' 


;I 


575 


PRINT 




580 


PRINT "N=' 


;N 


590 


GOTO 1890 




600 


PRINT "INTRODUZA S" 


605 


INPUT S 




610 


PRINT "INTRODUZA P" 


615 


INPUT P 




620 


PRINT "INTRODUZA I" 


6 25- INPUT I 




650 


CLS 




660 


LET N=(LN 


(S/P)]/(LN (1+1/1 


00)) 






670 


PRINT "N=' 


;n 


675 


PRINT 




680 


PRINT "S=' 


;S 


685 


PRINT 




690 


PRINT "P=' 


;P 


695 


PRINT 




70 


PRINT "1=' 


;I 


710 


GOTO 1890 




720 


PRINT "INTRODUZA S" 


725 


INPUT S 




730 


PRINT "INTRODUZA P" 


735 


INPUT P 




740 


PRINT "INTRODUZA N" 


745 


INPUT N 
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PUBUCAQ0ES PARA C0MPUTAD0RES 

Sinclair- 



SINCLAIR E MARCA HEG6TRADA DE SINCLAIR RESEARCH LTD 



• APLICACOES sErias PARA TK 85 E CP 200 

3? Edi^ao, atualizada e com nova composite* grafica CRI 9.000 

Quern i Sinclair? — Convertendo outros Basics — Contando os Bytes — Econoim- 
zando Memoria — Fhixogramas — Top Down — Erros da ROM — Conhecendo a Im- 
press ora — Chaining Programas — Sub-rotlnas em Cassette - Folha de Pagamento — 
Balance te — Corre$ao Monetaria do Imobilizado — Das Contribute Oes do 1APAS — 
Contas a Receber — Cadastro de Clientes — Conta Banc Sri a — CorrefSo de Provas — 
Processador de Texlos - Estati'stica - Custos - Orcamento Dome's tic o - Ram To- 
per e Data File em Codigo - etc. 

• 4S PROGRAMAS PRONTOS PARA RODAR EM TK 82C E NE Z800 

S a Edicao, reimpressa CR$ S.500 

Arquivos - Estoque - Piano Con tabil - Folha de Pagamento- Agenda Telefonica 
Ca;a ao Pato - Trilha - logo da Velha — Forca — Dado — Tabelas — Tabuada- 
ConveisSo de Coordenadas — Mldia — ProgressSo — Tabela Price — Fibonacci — De- 
pieciaf So - Renumerador de linhas em C6digo — etc . . . 



• 30 JOGOS PARA TK 82C E CP 200 

3? EdicSo CRS 6.000 

Damas - Labirinto — Enterprise — Golfe — Velha — Visit a ao Castelo Cassino - 
Role t a Russa — Corrida de Cavalos — Vinte e Urn — Cubo Magico — Senna — Banco 
Imobiliario — Forca — Dados — Invasores — etc. 

PROGRAMAS NOCOD1CO DA MAQU1NA 

In vers So de Video — Som por Software — Labirinto — Destrava Soft 

• CODIGO DE MAQUINA PARA TK E CP 200 

1? EdicSo CRJ 9.000 

Niimeros Binlrios e Hexadecimal* — Arquitetura do ZSO— Bditandoem Codigo ~ 
Program a para Edicao — As InstrufSes do ZBOem Exempt os Sub- retinas da ROM — 
A ROM de 8K - Dicionirio das lnstru^oes — Hex X Mnemonicos — Rex X Deci- 
mal - Inciuindo os Programas Scroll - Save Display no Ram Top- C on t adores de 
Pontes ou Tempo - Datafile - Renumber - Labirinto - som por Software - Mi- 
cron Pac — Bombardeio etc. . . 



Despachos para todos os Eslados mediants Ordem de Paoamento ou Cheque Nominal 



MICRON ELETROMCA COM. MD. LTDA. 



Av. Sao Joao, 74 - Tel. (0123) 22-4194 - cep 12.200 - S. 1 Campos-SP 



PARA BOM INVESTIMENTO, UM MICRO PESSOAL BASTA 



770 CLS 

780 LET I=((S/P)**(1/N) ) -1 

790 PRINT "I=" ; 1*100 

795 PRINT 
"800 PRINT "S=";S 

805 PRINT 

810 PRINT "P=" ;P 

815 PRINT 

820 PRINT "N=" ;N 

830 GOTO 1890 

840 PRINT "INTRODUZA P" 

845 INPUT P 

860 PRINT "INTRODUZA I" 

870 INPUT I 

875 PRINT "INTRODUZA N" 

880 INPUT N 

890 CLS 

900 LET R=P*((I/100)/(1-(1+I/10 
0>**<-N))) 

910 PRINT "R=" ;R 

91S PRINT 

920 PRINT "p=";p 

925 PRINT 

930 PRINT "I=";I 

935 PRINT 

940 PRINT "N="?N 

950 GOTO 1890 . 

960 PRINT "INTRODUZA R" 

980 INPUT R 

985 PRINT "INTRODUZA I" 

990 INPUT I 

995 PRINT "INTRODUZA N" 
LO00 INPUT N 
1010 CLS 

1020 LET P=R*( ( (I/100)/(l-(l+I/l 
00)**{-N)))**(-D) 
1030 PRINT "P=" ,-P 
1035 PRINT 
104 PRINT "R=" ;R 










& 



<? 



$■- 



c° 



<® 



^ 



Av. do 5826 /3S andar 
PABXWU-- 223^000 




"I=" ;I 



1100 INPUT 
1105 PRINT 
1110 INPUT 



1045 PRINT 

1050 PRINT 

1055 PRINT 

1060 PRINT "N=";N 

1065 GOTO 1890 

1080 PRINT "INTRODUZA I" 

I 
'INTRODUZA P" 

P 

1115 PRINT "INTRODUZA R" 
1120 INPUT R 
1130 CLS 

1132 IF R<P*I/100 THEN GOTO 2340 
1140 LET N=(LN (R/(R-P*I/100)) )/ 
(LN (1+1/100)) 
1150 PRINT "N="jN 
1155 PRINT 
1160 PRINT "I=";I 
1165 PRINT 
1170 PRINT "P=";P 
1175 PRINT 
1180 PRINT "R=" ;R 
1190 GOTO 1890 
1200 PRINT "INTRODUZA R" 
1220 INPUT R 

1225 PRINT "INTRODUZA P" 
1230 INPUT P 

1235 PRINT "INTRODUZA N" 
1240 INPUT N 
1250 CLS 

1255 PRINT 
EMORAR" 

1256 PRINT 
LTAR O" 

1257 PRINT 

1258 PRINT 



"SE O PROCESSAMENTO D 
"MAIS QUE 2 MIN CONSU 



AUTOR DO PROGRAMA" 
VIA MICRO SISTEMAS" 

1260 LET Q=R*N 

12 70 IF Q>P THEN GOTO .1300 

12 75 CLS 

1280 PRINT "IMPOSSIVEL; REVEJA S 
EUS DADOS" 

1285 PRINT "PORQUE N*R TEM QUE S 
ER >P" 

1290 GOTO 17 

1300 LET IO=((R*N/P) **(1/(N+1) )) 

-1 

1310 LET RO=(P*IO)/(l-(l+IO)**(- 

N» 

1320 LET Y=ABS (R-RO) 

1330 IF Y>01 THEN GOTO 1390 

1335 CLS 

1340 PRINT "1= "; IO*100 

1345 PRINT 

1350 PRINT "R=";R 

1355 PRINT 

1360 PRINT "p=" ; p 

1365 PRINT 

1370 PRINT "N=";N 

1380 GOTO 1890 

1390 LET IO=IO+{ (R-RO)/R) *IO 

1400 GOTO 1310 

1410 PRINT "INTRODUZA R" 

1430 INPUT R 

1435 PRINT "INTRODUZA I" 

1440 INPUT I 

1445 PRINT "INTRODUZA N" 

1450 INPUT N 

1460 CLS 

1470 LET S=R*(({l+I/100)**N-l)/( 

1/100)) 

1480 PRINT "S="?S 

1485 PRINT 

1490 PRINT "R=";R 

1495 PRINT 

1500 PRINT "I=";I 

1505 PRINT 

1510 PRINT "N="fN 

1520 GOTO 189 

1530 PRINT "INTRODUZA S" 

1550 INPUT S 

1555 PRINT "INTRODUZA I" 

1560 INPUT I 



1565 PRINT "INTRODUZA N" 

1570 INPUT N 

1580 CLS 

1590 LET R=S*<(U+I/100) **N-l)/( 

1/100) )**(-l) 

1600 PRINT "R=";R 

1605 PRINT 

1610 PRINT "S=";S 

1615 PRINT 

1620 PRINT "!■="; I 

1625 PRINT 

1630 PRINT "N=";N 

16 40 GOTO 1890 

1650 PRINT "INTRODUZA R" 

16 70 INPUT R 

1675 PRINT "INTRODUZA S" 

1680 INPUT S 

1685 PRINT "INTRODUZA I" 

1690 INPUT I 

1700 CLS 

1710 LET N=(LN ( (S*I/(100*R) ) +1) 

)/(LN (1+1/100)) 

1720 PRINT "N=";N 

1725 PRINT 

17 30 PRINT "R=";R 
1735 PRINT 

1740 PRINT "S=";S 

1745 PRINT 

1750 PRINT "I=";I 

1760 GOTO 1890 

1770 PRINT "INTRODUZA J" 

1790 INPUT J 

1795 PRINT "INTRODUZA N" 

1800 INPUT N 

1810 CLS 

1820 LET I=( (l+J/100) **(1/N)-1) * 

100 

1830 PRINT "I=";I 

1835 PRINT 

1840 PRINT "J=";J 

1845 PRINT 

1850 PRINT "N=";N 

1860 GOTO 1890 

1870 CLS 

1875 PRINT "CODIGO =" ;COD; " ,INEX 

ISTENTE, " 

1880 GOTO 17 

1890 FOR M=10 TO 50 

1900 PLOT M,15 

1910 NEXT M 

1920 FOR K=15 TO 25 

1930 PLOT 10, K 

1940 NEXT K 

1950 FOR L=15 TO 30 

1960 PLOT 50, L 

1970 NEXT L 

1980 FOR Q=10 TO 15 

1990 PLOT 13, Q 

2000 PLOT 16, Q 

2010 PLOT 19, Q 

2020 PLOT 22, Q 

2030 PLOT 25, Q 

2040 PLOT 47, Q 

2050 PLOT 50, Q 

2055 NEXT Q 

2060 PRINT AT 10,3;"P" 

2070 PRINT AT 7,27; "S" 

2080 PRINT AT 16 , 14; "SERIE""R" "" 

2090 PRINT AT 9 ,8 ; "I=JUROS/PERIO 

DO" 

2100 PRINT AT 11,8;"N=NEDE PERI 

ODOS" 

2120 PRINT AT 14 ,26 ; "TEMPO" 

2300 PRINT AT 20,0; "PARA CONTINU 

AR DIGITE 1" 

2310 INPUT "W 

2320 IF W=l THEN GOTO 15 

2330 STOP 

2340 PRINT "ATENCAO, ERRO : R>P* 

1/100 SEMPRE" 

2350 GOTO 17 



Armando Oscar Cavanha Fi/ho 4 Engenheiro MecSnico formado pels Universidade 
Federal do Parana". 
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microcomputador Rmgo R-470 e, disparado, o melhorem sua categoria E mais rapido na execucao'de programas, oferece amplas possibilidades de 
expansao e e o unico micro totalmente projetado e desenvolvido no Brasil, aprovado pelaSEI - Secretaria Especial de Informatica 
Um verdadeiro heroi nacional. 

Voce pode contar com ele para resolver problemas pessoais ou prof Issionais, ou simplesmente para se divertir, atrav& de varios jogos dispomveis em 
cartuchos oufttas. a K 

Alias, cartucho e o que nao falta para o Ringo. Ele e compativel com todos os programas do famoso Sinclair e possui equipamentos perifSricos 
exclusivos que ampliam muito a sua capacidade. 
Compare o Ringo R-470 com os similares e comprove: nuncaapareceu um micro pessoal tao profissional porestas redondezas. 



CARACTERISTICAS TECNICAS: 

• Linguagem Basic e codigos de miquiriaZ-80 

• 8 KBytes ROM expandivel para 16 K Bytes 

• 16 KBytes RAM expandivel para 48 K Bytes 

• Utllizavel em qualquerTV P&B ou cores 

• Conector para Joystick (jogos) 

• Teclado tipo QWERTY com 49 teclas e 155 f uncfjes ■ teclas de edic&o 
(nwimentacao de cursor e correcao} com repeticao autsmatica 

• Excfusf va tecia de invers^o de video 

' Tela com 24 linhas de 32 colunas para texto 



• Resolugaografica 64x44 pixels (unidade gr&ica), podeidoatingiruma 
matriz de 256 x 1 92 quartdo utilizado com cartuchos 

• Calcutos aritme ticos, f uncoes trigonometricas, logaritmicas e tdgicas 

• Cartuchos "Instant Soft" (programas aplicativos em ROM ■ exclusive) 

• Velocidade de gravacao em ftta cassete 2.400 BPS 
EXPANSOES: 

• Gravadorde EPROM paragravar, editarecopiar programas em cartucho 

• Interface para impressora ou maquina de escrever ele'trica 

• Sinteiizadorde sons 

• MODEM (Comunicacao teleffinica- 1.200 Bauds) 

" Pre^o sgjelto aaiteraeto 



A venda nas lojas especial izadas em micros, 
foto-video-som e grandes magazines. 
Naoencontrandoo Ringo nestes locais, ligue para 
21 7.8400 (SP) ou (01 1 ) 800.8441 e 800.8442 (Outras 
localidadesdo Brasil). DDD gratuiio. 

RINGO ta 

O micro que aceita desafios. 

Ritas do Brasil Ltda. - Divisao Informatica 

Telex{011>34673RitaBR 




Enxadrista exponents, Luciano fJHo da An- 
drade J4 ascraveu para os jornais "Correio da 
ManhS", "Data News" 9 "Oltima Hora" a pa- 
ra arevista "Fatos & Fotos". Luciano 6 econo- 
mists, trabalhando no Ministerio da Fazenda, 
no Rio de Janeiro. As opinidese comentdrios 
de Luciano Nito de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putations, astarSo sempre presentes em 
MICRO SfSTEMAS. 



Qual o melhor micro? 



Esta e uma pergunta que muitos 
leitores me fazem, dif fcil de res- 
ponder dada a crescente evolu- 
cab tecnol6gica da microinformatica 
que a cada dia nos surpreende com equi- 
pamentos dotados de recti rsos ma is e 
mais apurados. Mas podemos, hoje, ci- 
tar o Elite A/S, o qual venceu o 1 1 1 Cam- 
peonato Mundial de Micros realizado no 
final do ano passado, cujos resultados ja" 
foram divulgados nesta secao (ha* que 
considerar que o emparceiramento ado- 
tado foi o sufco, o que da* azo ao fator 
sorte). 

Em testes realizados aqui no Rio, ele 
ligeiramente se imp&s por jogar melhor 
as aberturas, gracas a sua maior mem6ria 
e leve superioridade na fase final. Em 
confronto com o Constellation, apare- 
Iho que custa metade do preco do Elite, 
o escore continua empatado depois de 
jogadas quatro partidas. Duas reUimpago 
e duas pensadas. Estas duas ultimas vao 
a seguir reproduzidas para que o leitor 
possa fazer seu pr6prio julgamento. 

Elite A/S x Constellation 
Rio, marcode 1984 

1 - C3BR P4D; 2 - P4BD P5D; 3 - 
P3CR P4BD; 4 - B2C C3BD; 5-0-0 
C3B; 6 - P3D P4R; 7 - D4T B2D; 8 - 
B2D C5CR; 9 - P3TR C3B; 10 - C3T 
B2R; 11 - D3C DIB; 12 - CxP(?!). 
Uma ousada entrega de duas pecas por 
uma torre e dois peoes. 12 — ...CxC; 13 
- BxP D1D; 14 - BxT DxB; 15- C5C 
0-0; 16- R2T P3TD; 17-P4BC(4)5C+; 
18 - PxC CxP+; 19 - R1C PxC. O Eli- 
te, afinal, na"o conseguiu mostrar o que 
queria com o sacriffcio do cavalo na 
12? jogada. 20 - PxP B3R; 21 - D3T 
D4D!; 22 - TD1R T1T; 23 - B5T(?) 
D4T; 24 - T2B BID; 25 - BxB TxD; 
26 - PxT CxT; 27 - RxC D7T+; 28 - 
R3B B4D+; 29 - P4R D7D; 30 - 
PxB DxT; 31 - P6D D6R+; 32 - R4C 
P4T+ e as brancas abandonaram porque 
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Diagrams A - Postcdo 
depois de 32 - R4C P4T+! 
As brancas jogaram 33 — 
RxP DxPC; 34 - P7D 
R2T; 35 - FSB P3C+; 
36 - PxP PxP mate. 
Observacdo: cada micro 
dispunha de duas horas 
para cada 40 jogadas. 



DiagramaB -Postcdo 
depois de 16-0-0(?) 
TxP! Observacdo: cada 
micro dispunha de duas 
horas para cada 40 jogadas. 



Diagrama C — Posicdo 
depois de 19 - BxB. As 
pretas anunciaram mate em 
quatro jogadas comecando 
com 19 - ...D5T!;20 - 
B7B+R1B;21 - T1R 
T8T; 22 - R2C D6T mate! 



previram que levariam mate em quatro 
jogadas (veja o diagrama A). 

Constellation x Elite A/S 
Rio, marco de 1984 

1 - P4D P4D; 2 - P4BD P3R; 3 - 
C3BR C3BR; 4 - C3B P3B; 5 - B5C 
PxP; 6 - P4R P4CD; 7 - P5R P3TR; 

8 — PxC. Comentando esta continuacSb, 
hd 30 anos, S. Tartakower declarou ser 
esta uma continuacao umpromising de- 
pois da seguinte sequencia: 8 — ...PxB; 

9 — PxP BxP etc. Constellation nao 
pensa assim. Bom, o resultado logo sabe- 
remos. 8 — ...PxB; 9 - C'3BR)xP DxPB; 

10 - C(5)4R D1D; 11 - B2R P5C; 12 
- C4T T5T; 13 - P3B P4BR; 14 - 
P3CR T3T; 15 - CR5B B3D; 16 - 
0-0(?) TxP! e as pretas fragmentam a 
estrutura de peoes que protegia o mo- 
narca branco (veja o diagrama B). 

17 - CxPR(?} (as brancas estao deso- 
rientadas}. Maior resisteYicia ofereceriam 
com P4B, o que ja" deveriam ter feito no 
seu 169 lance. 17 - „.BxC; 18 - BxP 
BxP! As pretas rejeitam o ganho facil 



do bispo para ameacarem mate. 19 — 
BxB e as pretas (o Elite) anunciam mate 
em quatro jogadas (veja o diagrama C). 

CONTINUE JULGAN DO 

Abente x Netto 
Paraguai, 1983 



s 
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Diagrama D - 
As pretas 
jogam e dao 
mate em seis 
jogadas. O 
Elite gastou 
4m 4s para 
encontrara 
resposta e o 
Supier 9 
precisou de 
6m 8s. 



Solucao do problems 



[filBiu H8J. - 9 '+±9S 

a*u - g ; +ao8a ozu - 1 ; +asa j*h - e 

; ii+y081 3ZU- Z '+H81" 1 - I -a euiBjBeia 
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LIGUESE 
NACETUS 

REDES LOCAIS 





INEDITO NO BRASIL 



Urn 



A Cetus lan^a o CS-1000. 
nodo capaz de alimentar a 
vontade dos seus computadores 
realizando as fun^oes de 
comunicagao indispensavel e 
minimizando os custos 
operacionais. 
O CS-1000 e uma dessas 
grandes ideias que chegam para 
ficar. 



Os nodos CS-1000 tern, na 
fungao dc interface, a 
capacidade de realizar os 
protocolos da rede, m6todo de 
acesso, integridade da 
comunicacao, enderecamento, 
transferencia de dados, 
empacotamento de mensagens, 
controle de fluxo, temporizacoes, 
deteccao e recuperacao em caso 
de falhas, liberando os 
equipamentos usuarios dessas 
tarefas. 



REDE LOCAL 
CETUS 



QUE E O CS-1000 

Como pioneira na 
implantacao de redes locais, a 
Cetus traz o CS-1000 para 
permitir a expansao ilimitada do 
processamento, antes realizado 
por um grande computador de 
capacidade limitada. 

Ele permite a interliga^ao de 
computadores, 
microcomputadores e 
perifencos, sem nenhum 
controlador centralizador de 
rede, fazendo com que as 
operates dos componentes na 
rede nao sejam prejudicadas 
pela falha de um ou mais 
elementos. 



O INICIO DA REDE 
PODE SER UM MICRO 



Para capacttar a rede em 
funcjao da necessidade, os 
equipamentos adquiridos sao 
progressivamente tnterligados. 
O CS-1000 e um elemento 
inteligente que, ligado a rede, 
permite comunicacao 
simultanea e independente entre 
todos os elementos, dois a dois 
no minimo. Sua Rede Local vai 
crescendo a medida das suas 
necessidades at6 255 elementos 
(computadores, impressoras, 
terminals, discos, etc.) que se 
interligam atraves de um 
simples par de fios trancados. 



A partir de agora, com a Rede 
Local Cetus e o CS-1000, o seu 
sistema vai evoluir tanto, mas 
tanto, que o processamento no 
Brasil vai passar a ter duas 
datas. Uma, anterior, ao CS- 
1000. A outra, ap6s o 
surgimento da Rede Local 
Cetus. 

FILIADA A ABICOMP 



Rua Alte. Cochrane, 206 

Tijuca - Rio dc Janeiro 

Tels.: (021) 284-7075 ou 

284-6659 
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EStB d L C fJj S J )r09rama ^ Vaipara os usu ™°$ da iinha TRS-80: como reservar 
espaco na memona para carregar rotinas em linguagem de maquina 



Abrindo espago para 
a linguagem de maquina 



X DI 
RINC 

2 LE 
LS4 

3 IE 

4 II 
6,LS 

=L 

5 RE 

6 PO 

10 Y 

11 F 
NEXT 
SR(7 

12 D 
,91, 

13 D 
46,2 
15 C 
20 R 
25 I 
30 F( 
$<A$ 
T 

35 GC 
40 DJ 



Jose Ricardo Ffores Rodrigues 



Varios usuarios de micros da Ii- 
nha TRS-80 eflcontram certa 
dificuldade quando precisam 
reservar espaco na memoria 
para carregar urn programa em lingua- 
gem de maquina. A ideia corrente e que, 
se o computador ja estiver ligado, terd 
que ser desligado quando surgir PROTE- 
GER para reservar a area. Na verdade, 
porem, isto nao e necessario: basta utili- 
zarmos a funcao VARPTR - Variable 
Pointer Function. 

VARPTR nos permite encontrar a lo- 
calizacao do indice de qualquer variavel. 
A partir dai, mandamos o computador 
calcular a sua localizacao e armazenar 



Listagem 1 



CLS 
9012f4567lJJ"" 123456789012345678 

O nn V r^T?i ST$) : " Z = ^OCALIZACA 
DO INDICE DA VAR, ST$ 

^ L ™ EEKU+1)J ' LSB = B ^E MEN 
OS SrGKIFICATIVO DA VAR. STS 

4 MSB=PEEK(I+2): 'MSB = BYTE MAI 

5 SIGNIFICATIVO DA VAR. ST$ 

5 L= LSB + 256 * MSB: 'L = LOCAL 
IZACAO DA VAR. ST$ 

6 FOR Z=l TO LEN(ST$> 

7 PRIHT@ ,"CODIGO GRAFICO (128/2 
55) ";: INPUT CG 

8 POKE L+Z-1,CG 

9 FRINT@470,ST$ 

10 KEXT 



nossa rotina em linguagem de maquina 
dentro desta variavel. 

Digite o programa que esta na lista- 
gem 1 para ver como funciona. Feito 
isso, digite RUN e entre com os seguin- 
tes codigos: 

128 156 128 136 148 251 

168 159 189 159 189 251 

130 171 135 175 131 251 

128 176 187 177 144 251 

128 160 151 181 128 128 

Voce acabou de colocar caracteres 
graficos dentro da string ST$. codi- 
go 251 imprirne 59 espacos em branco. 
De um PRINT ST$ e logo apos urn 
LIST 1. Notou que coisa horrivelmente 
interessante ficou a variavel ST$ ? Para 
evitar que o conteudo do ST$ fique 
desta forma, utilize ST$ = STRINGS 
(30,0); e antes de continuar, entre com 
o seguinte: FOR A = TO 800 STEP 
70: CLS: PRINT @ A, STS ;: NEXT 

A partir do momento em que a ro- 
tina em linguagem de maquina estiver 
armazenada na memoria, executa-la 
num programa escrito em BASIC e 
bem simples se utilizarmos a funcao 
USR. Existem, entretanto, alguns de- 
talh.es que voce ja sabe mas que seu 
computador prectsa ser informado 
atravgs do programa. 



40 



Voce precisa informar, por exem- 
plo, se est! trabalhando com disco ou 
fita. Experimente usar: 

CLS: IF PEEK ( 16396) = 

201 PRINT "NAO ESTOU 

COM DISCO I E VOCE SA 

BE" 

ELSE "CLARO QUE SIM 

SEU TOLO" 

Se voce nao possui sistema de disco, 
use o POKE nas posicoes 16526 e 
16527; caso contrario, utilize a funcao 
DEFUSR = L. Resumindo: 

IF PEEK ( 16396) = 201 
POKE 16526, LS: POKE 
16527, MS ELSE DEFUSR 
=L 

£ importante tambem trabalhar 
sempre em localizacoes de memoria 
compativeis com a capacidade de seu 
computador, ou seja, IF L > 32767 
L ™ L — 65536. Alem disso, a constan- 
te da string da linha 1 devera ser sufi- 
ciente, sempre igual ou maior que a 
quantidade de itens do comando 
DATA (da rotina em linguagem de 
maquina). 

MICRO SISTEMAS, maio/84 
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Contr 
Mala I 
Conta 
Tesou 
Credit 
Conta 

Voce en< 
revendcd 



Listagem 2 



1 DEFINT A-Zs CLEAR 100: ST$= ST 
KING$(30,0): V=VARPTR{ST$) 

2 LS=FEEK(V+1) : HS=PEEK (V+2) - L= 
LS+256*MS 

3 IF L>32767 L=L-65536 

4 IP PEEK (16396)= 201 POKE 1652 
6^LS: POKE 16527, MS ELSE DEFUSE 

5 READ DT: IF DT=990 GOTO 15 

6 POKE L,DT: L=L+1; GOTO 5 

10 Y=USR {768+RND(10)) : RETURN 

H V F0R X=X T0 15: Y=USR(768+X) : 
NEXT: FOR X=15 TO 1 STEP -1- Y=U 
SR(768+X) : NEXT: RETURN 
12: DATA 205,127,10,62,1,24,0,237 
,91,61,64,69,47,230,3 ' U '^ J ' 

11 ^ T ^i 79 ' 211 ' 255 '13,40,4,16,2 

46,24,242,37,32,241,201,990 

15 CLS: 'PROGRAMA PRINCIPAL 

5!-^ A ?« A !,'. IP A$= " FIM " GOTO 130 
™ 1** =1 G0SUB 11: GOTO 20 
1<J* * t: 1 T ° LEK < A $> = PRINT MID 
*<A$,A,1);: GOSUB 10: NEXT: PRIN 

35 GOTO 20 

40 DATA "OI, TUDO BEM?"," 



50 DATA "CADA VEZ QUE VOCE ESCUT 
A ESTE BARULHINHO, ESTA' UTILI2A 
NDO A'V'LINGUAGEM DE MAQUINA ATR 
AVES DA PUNCAO 'USR' PELO COMAND 
O EM 

60 DATA "BASIC 'GOSUB' CONTIDO N 
A LINHA 30", " 



70 DATA " EXPERIMENTE RETI 
RAR AS LINHAS - 6, 8 E 10 DO PRO 
GRAMA"," 'FORMULA 1' (MICRO SIST 
EMAS NR. 16, PAG. 50) E ENTRE COM 

80 DATA "LINHAS DE 1 A 6 DESTE P 
ROGRAMA."," ( KA0 ESQUECER DE 
ENTRAR COM '990' NA LINHA 13 )« 
90 DATA "O SEU MICRO PROVIDENCIA 
RA TUDO PARA VOCE. E ASSIM, NAO 
SERA" , "NECESSARIO DESLIGA-LO PAR 
A RESPONDER PERGUNTAS COMO ■ " 
100 DATA "1"," 'READY?' 



110 DATA "1",' 
R" " 

120 DATA "FIM" 
130 GOTO 130 



' PROTEGE 



Para terminar, rode o programa da 
listagem 2 e veja, na pratica, como vo- 
ce deve agir para carregar suas rotinas 
em linguagem de maquina. 



Jose Ricardo Ffores Rodriguez 6 formado 
em Admmistragao de Empresas e Ciencias 
Conta-beis pela Facutdade CSnd/do Mendes 

RJ. ' 




.I0LHADE 
PAGAMENTO. 



CflLCULfl OA FOLHA 



A Nasajon Sistemas, uma empresa 
especial izada. no desenvolvimento de 
programas, esta lancando no mercado, | 
em carter excl us ivo, um completo 
srstema de Folha de Pagamento para 
microcomputadores dos tipos 
DGT 1 000, CP 500, TRS 80 e outros. 
Relator ios emitidos: Relacao de Em- 
pregados, Quadro de Horarios, Folha 
de Pagamento, Resumo da Folha, Re- 
laca*o de FGTS, Guia de FGTS, Rela- 
cao de I.R., Guia de IAPAS, RelapSo 
p/Banco, Recibo de Pagto., etc. 



PROGRAMA 



Controle de Estoque 
Mala Direta c/ Ed. Texto 
Contas a pagar/receber 
Tesauraria (c/saldo bancario) 
CrediaVio 
ContabiMdade 

Voce encontra esses e outros programs em nossos 
revendedores credenciados. 





AO/CMOA 

flff«M\rV 



m /l/temos 

t!) R %£ r ?2™'f 5 8 ru P° 131 * ~ CEP 20090 
Tel.: (021) 263-1241 - Rio de Janeiro - RJ 



J 
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EQUIPAMENTOS 



• Vendo APPLE II PLUS, language 
Card 64 K, Drive, US* 5000 em 
Prog, prego 310 ORTN - Josias 
(021) 551-8350 - RJ. 

• Vendo disquetes Verbatim-Da- 
talife 5 1/4, tenho varias caixas 
com 10 cada. Tratar com Jorge 
Lui2 Mara, Rua Tim6teo da Cos- 
ta, 444/804, tel.: (021 ) 274-5329, 
RJ. 

• Vendo micro de bolso Sharp 
PC-1500, linguagem BASIC, inter- 
face pars 2 cassetes e plotter com 
4 cores e 9 tipos de caracteres. Na 
embalagem e com manuais. Tel.: 
(011) 240-41 40, Sao Paulo. 

• Troco TK 85 com 16K, joys- 
tick, gravador National, Mobyllet- 
te, 11 fitas com jogos, 2 livros 
com aplicativos e jogos de vi'deo 
(TV P&B) por CP500, ou por 
Color 64 exclutndo vfdeo. Tratar 
com Carlos a parti r das 7 hs em 
dias uteis,tel.: (011) 421-4610 ou 
421-4613. SP. 



SOFTWARE 

• Vendo ou troco Programas 
para computadores compatfveis 
com o TRS-80 Modelos I e III, e 
computadores de I6gtca Sinclair. 
Escreva para Cartos Seleri, Av. 
Sernambetiba, 3.600 B1 3/103, 
Rio de Janeiro, RJ, Cep 22.600. 

• Troco /cornpro ou vendo pro- 
gramas para TK; aos interessados 
escrever para: Sylvio Padilha Jr., 
Rua 41 -C, 139/41, Volta Redon- 
da, RJ r Cep 27.180. 

• Vendo f ita com programs ine- 
dito do jogo "General" (poquer 
com dados), para micros Sinclair 
com 16K, Mandar cheque nomi- 
nal de Cr$ 7 mil para Silvio 
Rauth, Cx. Postal 8546, Cep 
80.000, Curitiba, PR, tel.: 254- 
2881. 
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DIVERSOS 

• Traduzo programas das Tl pa- 
ra BASIC do CP-500, CP-200 e 
compatfveis. Traduzo, tambem do 
BASIC, para a linguagem das Tl 
desde que nSo exceda a memoria 
de programacao. Tratar com H6lio 
da Silva Araujd, Rua Des. Souto 
Maior, 244, Centro, Joao Pessoa, 
Paraiba, Cep 58000, ou com Sr. 
Neflton, tel.: (083) 221-9524 - 
horario comercial. Desenvolve- 
mos, tarnb^m, soft nas areas co- 
mercial e de engenharia. 

• R^dio amador : vendo interface 
para RTTY para os micros tipo 
Sinclair (TK 82/83/85 e CP-200). 
Informacoes com PY2-EM), Rena- 
to Strauss, Rua Cardoso de Almei- 
da 654/32, Sao Paulo, Cep 05013. 

• Executamos alta resolucafo 
grafica na linha Sinclair: TK82-C/ 
83/85, CP-200, 2X81 , Timex Sin- 
clair 1000, etc. Preco de lanca- 
mento Cr$ 35 mil. Acompanha 
soft explicative Paulo Roberto, 
tel.: 352-2710, ap6s as 14 horas, 
RJ. 

• Consultas sobre BASIC ou 
Assembler do 280, Cx. Postal 
57.041 Riode Janeiro/RJ. 



C LUBES 

• Brasil Micro Clube, o maior 
clube do Brasil para usuaYios de 
todos os micros. Grandes vanta- 
gens e descontos para nossos asso- 
ciados. Associe-se gratuitamente 
atraves da Cx. Postal 40088, Rio 
de Janeiro, RJ, 



• Gostaria de entrar em contato 
com usuaYios dos micros TK NE 
ou CP, para fundarmos o Micro 
Clube Natal, pars troca de ideais, 
programas e informacoes. Tarcf- 
sio Torres de Sousa, Rua Joaquim 
Manoel, 801, Petropolis, tel. : 222- 
4891, Cep 59000, Natal/RN. 

• Gostaria de entrar em contato 
com possuidores de TK, e compa- 
ti'veis, para troca de ideais, infor- 
macoes e programas, (aplicativos, 
jogos). Robson D. Klein: Rua 
Vereador Adao Rodrigues de 01 i- 
veira, 524, tel.: (0512) 934-285, 
Cep 93.300, Novo Hamburgo - RS. 

• Gostaria de contatar com pos- 
suidores de TRS 80-Color para 
troca de ideias, programas, ma- 
nuais e dicas. Dirija-se a Jose" Al- 
berto Cadais, Ql 23 conj. 1 7 Casa 
01, Lago Sul, CEP: 71600, Brasi- 
tia, DF. Tel.: (061 ) 571-1429. 

• Quero entrar em contato com 
possuidores do TK-2000 Color 
para troca de programas e dicas. 
Tratar com Jorge pelo tel.: (071) 
231-1227, ou pelo endereco: 
Alameda das Cajazeiras, 43, Cami- 
nho das Arvores, Cep 40000, Sal- 
vador, Bahia. 



CURSOS 

• O SENAC esta" promovendo, 
de 1 1 a 19 de junho, o curso Im- 
plantacao do Microcomputador: 
novo enfoque tecnol6gico e 
administrativo. Esse curso 6 desti- 
nado a empresarios, executivos, 
analistas de O & M e analistas de 
sistemas. Informacoes na Rua Dr. 
Vila Nova, 228, 2? andar, tone: 
(01 1 ) 256-5522, Sao Paulo, SP. 



•A pro-informAtica, SISTE- 
MASCONSULTORIA ETREINA- 
MENTOoferece regularrnente cur- 
sos de COBOL, BASIC, BASIC 
AVANCADO e ASSEMBLY com 
turmas reduzidas. Alem das aulas 
praticas, os alunos dispoem dos. 
computadores com assistencia de 
monitores em horaYios extra-aufa, 
RUA JOSAFA BELO 100-337- 
8792 - CIDADE JARDIM - BE- 
LO HORIZONTE. 

• O CB1 - CENTRO BRASILEI- 
RO DE INFORMATICA promove 
para os meses de ABRIL/MAIO os 
cursos de BASIC, BASIC AVAN- 
CADO, MUNPS, COBOL, FOR- 
TRAN, ASSEMBLER, MANU- 
TENCAO DGT 100/1000. Tur- 
mas reduzidas, certificado de con- 
clusao e aulas praticas. Informa- 
coes naAv. PassosnP 115Sala215 
ou pelo telefone 233-1123. 

• A MIKRO INFORMATICAcon- 
tinua oferecendo com sucesso os ( 
seguintes cursos: Informdtica p/jo- r 
vens, Operacao e Programacao de 
microcomputadores, Linguagem 
Basic e Basic Avancado. Inscricoes 
e Informacoes a Av. Af . Pena 952/ 
522 Tel. - 222-3035 BH/MG. 

• Em Niterdi, a MICROWARE 
Informatica e Eletrdnica promove 
regularrnente cursos de Introdu- 
ced aos Microcomputadores, jde 
linguagem BASIC e Assembler, 
com aulas pra'ticas em equipamen- 
tos DGT-1000. As turmas sa"o li- 
mitadas em 12 alunos. O material 
dida'tico 6 gratuito e e fornecido 
certificado. Inscricoes e informa- 
coes na Rua Moreira Cesar, 229 — 
sala 1713, Shopping Icaraf, Nite- 
r6i, tel.: (021) 710-2780, RJ. 

• A FAAP oferece regularrnente 
cursos de BASIC Basico (27 ho- 
ras) e Avancado (45 horas) nos 
TK 85, CP-200/300/500 e Junior 
Itautec. Horarios pela man ha", tar- 
de e noite. Maiores informacoes 
pelo tel.: (011) 66-2147 ou 
826-4233, ramal 59, Sao Paulo, 
SP. 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubese Di versos: 
voce" e quern decide o que, quando e como anunciar nos 
Classif icados MS. Quanto voce" tera que pagar? Isso tambem 6 
decisSo sua. Preste atencao: 

• cada linha de texto (30 toques, tncluindo os espacos em branco) 
custa Cr$ 2.000,00: 

• linhas incompletas serao cobradas como inteiras; 



• o proprio anunciante deve chacar o valor de seu anuncio com o 
numero de I inhas que ele contiver; 

• o anuncio deve vir acompanhado de um cheque nominal a ATI 
Editors Ltda; 

Os textos devem ser datilografados ou escritos em latra de forma, 
obedecendo as 30 batidas por linha. Veja urn exemplo: 
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Maiores informacSes pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 
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A geracao definitiva e sempre a prdxima 




VocS s6 descobre o quanto precisa de urn Micro-Com- 
putador JR da Sysdata depots que o conhece de perto. 

Voce vai ter certeza de que fez um 6timo negocio ao 
adquin-lo assim que o colocar na sua empresa ou na sua 
casa. 

JR da Sysdata e rapido, e versatil, e compacto. 
APLICACOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatdrio de clientes, mala direta, 
calculos de orcamentos f inanceiros,controle de processos 
industrials, calculos de engenharia, calculos de estatfsti- 
cas, funcoes rnatematicas, funcoes logicas em cadeia de 
caracteres (STRINGS), graficos', jogos animados, progra- 
mas educacionais. 
OJRPERMITE A1NDA: 

acesso a grandes sistemas de cornputacao, a comuni- 
cacao entre os departamentos de Empresa, efetuar pro- 
gramas especfficos para cada Empresa. 

E, como se naobastasse, ele e o Micro-Computadorde 
menor pre^o do mercado. 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tao econdmicp. Mas e. 

Afinal, ele e o mais completo Micro-Computador de sua 
geracao. 

Inclusive no preco. 

Voce pode testar estas e outras qualidades do J R em 
qualquer dos nossos revendedores. 



!S\^J=j>fbfn AV. PACAEMBU, 788 

*^ wm Udu CEP 01155 . TEL : 67mS900 



4r eletromcs Icda 



5!l N ?«i°^ : c S f? ^ A H L **{S a P M ^ 1 .* Ad Data S 64 ' 82 ™; ADP System 227.6100; Biicker 881 .7995; Cinotica 36.6961 ; Compumarketinq 212 9004' Compute 852 8533- Com 

pao 814.3663, O.P.A. 35.8685 Pfandata 275.0181; Pante 543.9653- Sacco 814 0598- Servimec 222 1511- Sktpnar ?fi? RfifiG- <t n q ra trkk d „ ■ LTonooV £• . 
Computer House 852.5*55; Compute 32.6322; Microtek 32.4445/Rh, Clari SiZSSSS^^ 

S^S?i=m«/ C i? n ^-F^ ; *$££%& ~ Guacumaq 261.0236; Bra Sa n 9 a PauHsta - Infordata 543.5198; Bauru; fSSt^koS^^oSSSJ^S&JS^^m 
^mS^p^^n 8 , 07 ^ pomputique 267.1093; G D M Informatics 284.8744; JR da Goes 246.41 80; Kristian 3^SS^S£SSS!mXS^^^R 
RIO GRAND* "KffSn"*/^ 6 ^ Hor, "T ■ Com P^ity 226.6336; Computec 225.2617; Kemitron 225.0644; Minas Digital m^^*<2SSSe 72° A 
93472 ? PARANA/cV,^£ ?°c ^V ^S^, 2 ^- 1941 Aplitec l^ 5; Disital 24 ' 1411; Microsis 22978Z - pekrtas " Sistematika 2Z3810; No^mZ? M cromeaa 

pSaIbaS^^^^ ■ orl SESti*. 321.4220; SSSSSS^'^S^SSSSl 



Domind 4 um jogo que anda meio esquecido por a/. Mas o seu micro TRS-80 o redescobriu 
gostou e quer desafia'-lo para uma part/da (com dire/to a musiquinha e tudo) 




Domine o micro 
no domino 



Everton Pere/ra 



Quanto tempo faz que voce 
n5o disputa uma partida de 
domin6? Se e* por falta de ad- 
versano, eis aqui a sua opor- 
tunidade de enfrentar um ad- 
versano in£dito: seu micro! E voce tera" 
ainda uma grande vantagem: ele nSo 6 
nada temperamental. Se voce o estiver 
vencendo uma partida, na*o correra* o ris- 
co de seu adversirio esbarrar na mesa de 
jogo e, sem querer, espalhar as pedras. 

Este programa pode ser rodado em 
qualquer micro compatfvel com o TRS- 
80 modelo HI. Quanto as instrucoes de 
jogo nSo hi muito o que dizer, uma vez 
que, alem de ser um jogo muito conheci- 
do de todos, ele 6 auto-explicativo, ou 
seja, a cada jogada o micro Ihe dira* o 
que fazer para prosseguir. 

Fica a sugestao para que os leitores 
facarn modificacoes no programa. Por 
exemplo: voce's podem alterar a tonali- 
dade e/ou ritmo do som ou criar dife- 
rentes nfveis de dificuldade para o jogo. 
Eis aqui duas dicas: 

1) o enderego 30007 (vide linha 5010) 
determina a tonalidade do som que 
acompanha a impressao da palavra 
DOMICRO.^podendo variarde a 225 
(do agudo para o grave); 



2) caso o leitor ache o programa muito 
extenso podera" reduzi-lo suprimindo as 
linhas 5010 a 5030 e 9510 a 9570 (sub- 



rotina de impressffo da palavra DOMI- 
CRO), criando entffo a linha 4050 GO- 
SUB 8400: NEXT: U= 52. 



I 



Formado emCiSnciasEcondmfcas, Everton Pereira 4 fundonMo do Banco do Brasfl, agSncl* d* 
d/™mCpJoO A Prend*u * Unguagam BASIC num NE-Z8QO0 e atualmente 6 usuirto 



Domicro 



P0K£i&526,48rP0KEi6327,li7iRAND0M 

20 F0RIB=30 TO 3i:F0R IA=i TO 51READ ICdSP< re >«SP< IB >+cm**r m iw 

^ T Tr^I:?^, 3S),,8TRIN3iB<5 ' 131),fr0R »-33 TO 36?FM tJ-™Ti S US 
AD IC»8P(IB>»SPaB>+CHR%(IC)»NEXToNEXT 

35 3E=CHR<E(i5i)+CHR5<i3i>+CHRia?l>tSF-CHRI(14?)+CHR»(32)+CHRl(i 

70MBG«CHR*(i57)+CHR«<l40)+CHR*(i74)i8H-CHR«<iei)+CHRt<i76)+CHRI 

i^tJ^«. l L TH !i , ,r RINT8654 ''' vo " qUE «"»«■. POi« t«n o dubU 6/ 
!?!! ? ,EL8E p *™TS>652 r "S0IJ EIJ SUE C0HEC0 P0I8 TENHO 0UBLE 6/ 

200DJNEXT BrCB30BlHa5 ' IWOlHlIt< " 0tIE:(n " ,i ' rE<3> " 1E(i> ' F0R 1A " 1 T0 
9 J? °. N .J Y T G0SUB i050,2000PlFIL>i AND IT-IP THEN IT-14MP-14 ELSE 

IF IL>1 THEN IP«14#-i»(IP>lT>iIT-i4#-mUT>«IP> 
T» ? Ji« tll m hU HD JIl ^J HEN PR INT3645 > S ™ INO* < 23 , "«" ) "EU GANHE I "S 

"iS?;, ( ,?2£ lll*f LBE tF IP "* 14 AND IP>ITTHEN PRINT364S,STRING«<2a 
;"" > VOCE GANH0U"STRINGS(22,"*"),ELSE IF IT-J4 AND IP-IT THENPR 
INTa643,STRINGS<22,<<tt'<)"EMPAfAM0S''sTRINQ5<22 "J"?, 
230 PR INT8773, STRINGS* 55," "),«IF IT-14 OR IP-14 THEN 600 ELSE G 
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MIC 



~ OTO 215 ~ 

ff < r x« U ^^ > ' F0R IA,Bt T0 5 0iNEXT*PRINT3786, STRINGS? 32>,sF0R 
"8" THEN RUN SPC29X>"N" THEN 600 ELSE IF SP<29>« 

1200 NEXTiRETURN 

E?2?A p r^MS Q j'i?? , ^;i^ R i5i;*ar suA yez * digite a letra corr 

DIGITE ARENAS * n ?« w J0QA- |8 774.-DA. SE VOCE NAO TIVER P/JOBAR, 

??5l5i < ??i% I XKV. I ^^ a9> "''" ™ EN S02 ° ELSE ™«ASC<SP<29>>-64 
™ * 1F ly>14 0R IV<1 ™EN RETURN 

3c.00 i SP<29>«"E"aE(2>«yAL(HrD*(BP(IV),i,l)>»lE(4)»UAL<MID*<SP(rV 

ETURN Et2>OIE<3>> THEN IF IYtt2 TH *N ^200 ELSE IF IY«i THENR 

■^OI^ aT ^S:iK{:! R1M " 2BB+IT<14 --' "' ELSE I^rP-l.PRXNT 
3 M?^?L IE<t><>IE<3> AND<IE(a>«IE(l) 08 IE<3)=IE<4>> THEN SPdui 

3900 SP(iy)«"*"iRETURN 

4DiO IP-15UT-1SF0R IA»i TO 28 

4020 IC=RND<2) 

H^^ffrjp^piKjf as Bs ^ T)aT " ITM ELs£ if ip<29 ™ 

4040^1'F SP(IT-i>»-66" THEN IY-IT-1 ELSE IF SPUP~1>»"66« THEN IY 

5010 OOSUB 8400»NEXTUA«327«IB*IA«IH»0«POKE30007 30 

5020 FOR IC-1 TO 4»F0R IU-0 TO 6*3«(IH«S>iREAD iMiIF IM<>32 THFW 

PRINTOrA+IU,CHRJi(IM),lIJBUS«ia) IHOM THEN 

7017 F0RIA=0 TO SiGOSUB 93001PRINT6966. ""iNFXTtGOSUfi 9qnn«PDVMT-i 

,STRING*<55,14Q>iG03UB 9300sPRINT8989 "8UAS pem»ab«Ifa» rf-I tJT 
2.Q08UB MOO.PRINW66,~-.NEXT.BoKb ^ 

7040 FOR IA»i TO 50GOSUB 9300>PRINT3966 ""«NEXT( P0KF<*nnri7 ■trttc-AD 

8000 XL-O.XF IC-iO THEN IC-OHOpO ELBE IF leUo THEN 5>Io™! 

«o2n J5"iS + | H,1F IC "- 10 0R ICb7 THEN IH-IHM-1) 

8200 IK»ICUZ»QiIM"»I0»G0TG87DD 

8400 IL-OHF IB — 10 THEN IB-0tXtt-B32 ELSE IF XB»70 THEN IB-6QUQ 

8500 IB-.IB-IUHF I8=-10 OR IB-70 THEN IU*IUI#<-1J 
8600 IK-XBiXZ-OiXH-ia 

SmS JStJ^FLJIP "-«K-*D>/S ELBE IZ-ABSCIK/5) 

8750 IFIK>»5 AND IK<60 THEN 8800 ELSE IF IM<827 THEN XG»9+?:»0«Tr 

:^(IK>50).GOT08900 ELSE 10-642-320-U-sS! CiKboMGOTO 8900 

S22S KS E 8d oo7^J«J-»J-3i12-ub^q>iK¥Srn 

«f!5 DATA 2ii '°> 2i4 . 2,2*1*254, 6, 30, 16, 254 43 120 181 32 *>99 an* 
9500 DATA"00"/'ll- r "22"/'33" r -44" f -55''>'66'' »o7- "02'' -03- »n2" 
''05-,-06^"12'V'13-,"14V'i5","16 ; ',-23- -24- -25- °L" SLji 52-Jt 
r "36", "45", "46-, "56" ' ' ' , 34","35- 

9510 DATA 191,159,143,143,143,189.144 191 149 12B 15B 10a tot u 

fo? ?JI A J!f»*5!' l43 ' l43 ' 143 ' i89 » ^4,191, 149, 128, 128, 128,191 149 
,191,149,128,128,128,191,149,139,189 188 188 IBS 159 139 
9530 DATA 191 , 189. 144, 128, 164,191 149 191 149 139 ile ?'q «h «* 
9.191,149,128 128 12B 191 149 19 149 128 128 ill lit' ill' ' 

TS25. jjX -113 *- " 1 - t8 r- «•- «■- «?- «riS?iSTiif TiiJ^S^i^. 1V1 

9550 DATA 184,159,143,143,143,143,133.191 149 128 128 i?a ^b <-> 

o^,„ i:'i. r l31 ' 19i ' iS1 ' 12 9 f 128,19i,i49,128.i38,175 176 176 
v, iv \, 14?, 128, 128, 128. 191, 149, 139, 189, 168. IBB .168. 159 .139 




TECNOLOGIA 
EFICIENCIA 
SERIEDADE 

a servigo de sua 
empresa 




POSSUIMOS PROGRAMAS 

DEALTO DESEMPENHO 

PARA 

MICROCOMPUTADORES. 



Areaadministrativa 
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- Folha de Pagamento 
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Avenida do Contorno 6656 

Li 19 Belo Horizonte 30000 

(MG) Tel: (031) 223 4133 

Etfamos credsnclando r»vendedor«5 
• raprsMntantos *m todo Brasil. 




LOMAX, J. D, f DocumentacSo 
ds Software, Editora Campus. 

H Este livro se destina a qualquer 
ieitor interessado na fabricacao 
(desenvolvimento, fornecimento e 
manutenca*o) ou no uso de produ- 
tos de software. Os primeiros, ele 
auxilia na complexa tarefa de ela- 



borar instrucoes que possibilitem 
uma utilizacao ampta e eficaz de 
seus produtos; aos usuarios, ele 
mostra a importancia dessa docu- 
mentacao como parte essencial do 
software, apohtando-lhes os as- 
pectos que devera*o levar em con- 
ta durante a selecao do software, 
ou que precisarao discutir com 
seu futuro fornecedor. 

Os tres capi'tulos iniciais anali- 
sam separadamente cada urn dos 
tipos de manuais e o ultimo deles 
erisina a elaborar textos que pro- 
piciem uma comunicagao simptes 
e objetiva entre clientes e fabri- 
cantes. 

:XLVES, A., ProgramagSo, Editora 
Atlas. 

■ Este livro <5 pioneiro no trata- 
mento da tecnica de programacao. 
Nao 6 urn texto sobre linguagem 
de programacao ou analise de sis- 
temas e sim sobre os problemas 
operacionais vinculados a codrfi- 
cacao, aos testes, a depuracSo de 
erros e a documentacao. 

O autor dividiu o livro em cin- 
co capi'tulos. primeiro trata dos 
Projetos, onde se ensina a elabora- 
cao de fluxogramas dentro das 
normas da ANSI/70. O segundo 




etapas do planejamento estrategi- 
co e tatico. 

O quinto capftulo ressalta as 
providSncias a serem tomadas na 
parte organizacional e na tecnica 
e, finalmente, o sexto trata do 
controle do planejamento. 



capftulo e dedicado a Codifica- 
cao, contendo topicos relaciona- 
dos com a clareza de urn progra- 
ma, e no terceiro vem os Testes, 
apresentando sugestQes para loca- 
lizaca*o de erros. No capftulo 4 e 
apresentada a Depuraca*o de Erros 
e no capftulo 5 a Documentacao, 
com informacSes sobre a finalida- 
de e leitura do programa. 




SEJA PILOTO OU MECANICO 



DE AVIOES 



OU HELICOPTEROS 





RIO DE JANEIRO 



EMPAER 



ABREU, C. A., 77 Programas para 
finha Apple, Edieao Micro-Kit. 

■ Este livro serve como texto 
didatico para aqueles que estao co- 
mecando a programar em BAbic 
e tambtSm como material de apoio 
para os estudantes de 1P e 2. 
graus. Com ele, alem de passar ho- 
ras divertindo-se com seu compu- 
tador, voce" podera observar, com 
o auxflio dos comentarios, como 
sao construfdos os programas e a 
sualbgica. 

Al£m de jogos, o livro traz va- 
rios programas educacionais como: 
DecomposicSo de fatores primos; 
Como calcular a area de urn polf- 
gono; Metodo de Simpson; Ope- 
racoes de vetores; Divisao de dois 
numeros; Plotagem de curva e 
outros, os quais Ihe darSo a opor- 
tunidade de estudar Matemattca 
atrave"sdo computador. 



Ct ARC1A, S, Construa o seu 
prdprio computador usando o 
MP-Z80, Editora McGraw-Hill. 

B Este guia pr^tico mostra como 
construir um computador baseado 
no famoso microprocessador Zi- 
log Z80. A descricao enfoca um 
microcomputador bdsico em placa 
unica contendo 2Kdeststemaope- 
racional, portas serial e paraleta, 
display hexadecimal e armazena- 
gem de massa em fita cassete. Ca- 
da subsistema do computador e" 
comptetamente explicado e calca- 
do em informacoes provadas e 
testadas de forma a que o Ieitor 
possa facilmente modif icar o siste- 
ma (adicionando, por exemplo, 
um terminal de vfdeo) a f im de sa- 
tisfazer suas necessidades pessoais. 

BORGES,J= A., BASIC - 
Aplicagdes Comerciais, Editora 
LTC. 



■ A abqrdagem geral do livro se 
baseia em exemplos voltados para 
aplicacoes do tipo gerencial. Par- 
tindo de programas completes, 
que sao minuciosamente analisa- 
dos, o Ieitor 6 guiado ao entendi- 
mento do computador e da ativi- 
dade de programaca"o . Todos os 
detalhes da linguagem BASIC -sao 
explorados, inclusive os aspectos 
que nab sa*o padroni2ados nas di- 
versas vers5es para diferentes 
computadores. -Especial mente, o 
capftulo sobre arquivos fornece a 
base para desenvolvimento das 
aplicacoes de uso na administra- 
ca"o em geral. Embora enfase seja 
dada no BASIC para micros, este 
texto podera ser utilizado por 
programadores que utilizem o 
BASIC em computadores demaior 
porte. 



M 



ICROSISTEMAS, maio/84 



r 
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comprarumCPSOO 




Voce pode ate achar que oprego e as condigoes que 
aUappy oferece sao as melhores do mercado. 
Oque e verdade, facildevoce comprovar. Mas o que 
aUappydeseja e fazer muito mats por voce 
Dai ao comprarseu micro na Clappy, veia o que 
elalhe oferece: 

• DepartamentodeConsultoriaeApoioao 
Comprador 

• Curso de Programagao e Operacao 

• Treinamento 

• Impiantagao, fornecimento e instalacao de 
sistemas 

• Grande variedade em Softwares, perifericos 
esuprimentos. 



iHHi 



PROLOGICA 

micfocomputadores 



Clappy 



CP500, na$ versoes cassete, 1 ou 2 discos. 
PlacaCP/M.Sistema 700 com super file e 
impressora de 200cps, disco Winchester de 
5 Mb. Sistema 600, PROCALCfo visicaic do 
CP 500} f Banco de Dados basico e avangado, 
processadordetextosbasicoe super, 
compiladores BASIC, COBOL, FORTRAN e 
PASCAL Aiem de uma infinidade dejogos. 

h* APUCATIVOSCOMEROAiS: 

Contabilidade, Controie de estoque, Folha 
depagamento, Contasapagarereceber. 

APLICATIVOSDEAPOIOA DECtSAO: 

Planilha financeira, Processamento de 
textos, Mala Direta t Cadastro de ciientes, 
Controie financeiro. 

A Clappy desenvoivesoiugoes especfficas 
para qualquerproblema que voce tenha. 



ACLAPRYTEMA MELHOR 
SOLUQAOPARA SEUSPROBLEMAS. 



CENTHO: 

Ay.RioBranco, 12-Lojaesobreloja 
Tel.: (021)253-3395 

Rua Sete de Setembro, 88-LojaQ {Galena) 
Tel: (021) 222-551? -222-5721 



Venha a nossa loja ou solicite 
a visita de um representante. 

COPACABANA: 

Rua Pompeu Loureiro, 99 

Tel.: (021)236-7175-257-4398 

Abertadmnamentedas 10as20horaseaossa'badosdas Was 15 

noras. Estacionamentoprdprio. 

Entregamos em todo Brasilpelo reembolso Varig. 
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Linha Apple 



Disco voador sonoro 

Lendo o tltil e interessante artigo Rotinas de som e 
animagSo grdfica, de Rudolf Horner Junior, na Sec5o 
Sidra de MS n9 27, chamou-me a atencffo o som do disco 
voador. Resolvi fazer uma pequena alteracao no programa 
(espero nSo ferir os sentimentos do autot do artigo) e jun- 
tar a imagem ao som. 

Depois de rodar o programa, 6 interessante afastar-se 
cerca de quatro metros, da TV, pois o efeito fica ainda 
mais atraente e sugestivo. 

10 RFM DISCO VOADOR « BY CARJBA * DE!Z 1983 
20 HOME 

30 DATA iA0 T i, 162,0, 138,24,233, i, 208,252,1 
41, 48 ,192,232,224, 255 ,208 ,242,236,208, 237, 

40 FOR A-768 TO 789 s READ B s POKF. A,B : 

NEXT 

« RND<16>*16 
AT 17 
AT 18 
AT 19 
AT 20 
!i 




COLOR 
17,21 
15,23 
12,26 
9,29 



GR = 

ML IN 

HLIN 

HLIN 

HLIN 
3 HLIN 7,31 AT 
D HLIN 9,29 AT 2 
3 HLIN 13,25 AT 
CI HLIN 15,16 AT 
HLIN 22,23 AT 
FOR A-l TO 255 
D POKE 774,105 s 
POKE -16304, A 
CALL 768 
POKE --16303,0 
FOR 8=1 TO 30 
GOTO 50 



2 

23 
24 
24 

; STEP 
POKE 



3 
769 



POKE 783, A 



NEXT B F A 



Carfos Ribeiro de Barros-SP 



Linha TRS-80 



Bye bye INKEY$ 

Sabendo os enderecos e valores de cada tecla, fica 
muito facil eliminar o INKEYS e permitir maior ve- 
locidade nos programas. 

Observe que neste programa aparecem no viaeo os 
valores relacionados a cada tecla, e se apertarmos v£- 
rias teclas simultaneamente, o resultado que surgira 
na tela sera" a soma dos valores de cada tecla. Assim, 
para substituir o INKEYS, basta usar IF PEEK (en- 
dereco) = (valor da tecla) THEN.... 



FOR K=0TO7 : X(K) = 1433 
: PRINT@128*K,X(K) : NEX 



CLS : 

6 + 2 + K 

T 

FOR K = TO 

,PEEK(X(K) ) , 

REM ENDERECOS 

LADO 

REM ALVARO DE FILIPPO 

823-1948 IPATINGA MG 



: PRINT@1 28*K+8 
NEXT : GOTO 2 

E VALORES DO TEC 



(031 ) 



in 




cUgGPoIIq 




Se voce iempegvenaswiinajse programasutilita'rios^ 

realmentetiteis toMando jwejra em seus disquetes ou 

fitascassetesfanwcipe-seaospinatas etratede 

divulg^losyEnvie-osparaMREDAQAO DE 

MICRO SISTEMAS - SE QAO DICAS:Av. 

Presidente Wilson, 165/grupo 1210, Centro, Rio de 

Janeiro; /0, CEP 20030? Nao se esqueca de dizer 

para qualequipamehio foram desenvolvidos. Desta 

forma /sua descoberU ipodet % ser util para muitos 

e miiitokemvezde desmagnetizar-se com o tempo 

em si/as fitese disquetes... 



Linha TRS-80 



Duplicador de linbas 



Este utilitario gera uma 
linha identica a outra ja 
existente no programa, pois 
na~o existe esta funcao no 
BASIC dos micros compati"- 
veis com a linha TRS-80. 
Para opera4o, basta seguir a 
sequencia: 

— digite o numero da nova 
linha; 

- utilize a tecla de tabula- 
$ffo ( ■+■ ) para mover o 
cursor, reservando urn espa- 
co identico ou superior ao 



da linha que sera" duplicada; 

- digite o sfmbolo de co- 
mentano (*) e, como lem- 
brete, o numero da linha 
que ser£ duplicada; 

- tecle RUN 65000 ou 
GOTO 65000 e responda as 
perguntas "DE" e "PARA" 
com os respectivos numeros 
das linhas; 

- tecle < ENTER > e 
observe que voce" obteve 
uma copia fiel de uma linha 
ja existente. 



Aivaro de Filippo-MG 



65000 INPUT M DE";L1 : INPUT M PARA" ;L2 : L3=165 

48 

65001 L3=PEEK(L3+1)*256+PEEK(L3) : L3=L3+(L3 

32767)*65536 : IF L3 = THEN 65000 ELS 
E E=PEEK(L3+3)*256+PEEK(L3 + 2) : IF E<>- 
L1 AND E<>L2 THEN 65001 

65002 IF E=L1 THEN E1=L3+4 ELSE E2=L3+4 

65003 IF E1=0 OR E2=0 THEN 65001 

65004 POKE(E2) ,PEEK(E1) : El = E1 +1 : E2=E2+1 

: IF PEEK(E1)>0 AND PEEK(E2)>0 THEN 65 
004 ELSE PRlNT"OK" : EDIT. 

65005 ' DUPLICADOR DE LINHAS * ALVARO DE FIL 
IPPO * (031) 823-1948 



Aivaro de HUppo-MG 



■ 



Formatando quantias monetdrias 



„Esta dica transforms qualquer va- 
lor numerico (exceto em notacffo 
cienti'fica, tipo 1 .234 E+3) positivo 

JlvS 4 ™ I»« ° formato 
aaa.aaa,XX, que 6 muito utiliza- 
do para representar quantias mone- 
tarias. 

G programa deve ser usado como 
sub-rotina num programa principal, e 
para melhor compreensao vamos ana- 
hsd-lo a partir da figura 1 ■ vamos su- 
por a variavel VENDAS = 1 .000 856 
JiKS? = VEND AS*0.8, ou seja, 
LUCRO = 800.6848. Para formatar 
os valores de VENDAS e LUCROS 
usaremos as linhas 1 10 e 120 da figu- 
ra 1, colocando numa variavel VX o 
valor da variaVel a ser formatada. 
Ativamos a sub-rotina formatadora 
(GOSUB 4000), que nos devolve o 
valor formatado na variavel Z$ e 
salvamos o valor desta variavel numa 
outra varidvel alfanumerica qualquer 
(no caso da figura 1, LUCROS e 
VENDAS $). 



10 

20 VENDAS 

30 



1 -000.856 



100 LUCRO = VENDAS 
1 1 VX = VENDAS 

VENDAS S =2$ 
120 VX = LUCRO 

LUCRO? = Z$ 



"0.8 

: GOSUB 40000 



GOSUB 40000 



40000 Z$ 
40010 



40190 RETURN 



Figura 1 

E importante evitar que as varid- 
yeis utilizadas na sub-rotina nao se- 
jam usadas no programa principal, 
pois podera" gerar perda de valores e 
cnar confusao em outros resultados. 
Para evitar a repeticao, fixe as varia"- 
veis usadas: V$, VO$, ZS, VX 
FLAG, CNT, MOD, L. Por fun, 6 
mteressante destacar que esta dica 
aceita ate o valor maximo de 
999.999.999,00. 



Sub-rotina formatadora 



40000 Z$ o = .., VS = STRS (VX) :CNT 

40Q1G IF SGN ( VAL < VS ) ) = i 

THEN FLAG =1 
40020^* = ST RS { ABS ( VAL (VS) 

40030 FOR I = 1 TO LEN (vs . 

40040 IF MID? (V5 ,i^ L V V„ mm 

GOTO 40070 
4005 NEXT I 

40°070 Vol = :-?.°" : G0TO «^0 
4QO70 V0S = «,» + MIDS (v$jI + , 

40080J FOR X = I - , to , STEP _ 

4009O CNT = CNT + 1 

40100 IF (CNT / 3 - INT (CNT / 



3) = 0) THEN Z$ = mi D? {vs 
X,3) + "," + zs 
4 0110 NEXT X 

"""(vsmjJ^ 1 ( STR5 ( liiT < VAL 
40 130 MOD = INT (L / 3) 
40140 IF U / 3 )'- INT (L / 3) 
THEN GOTO 40160 
V+ » .. LEFTS (V5 ' L - 3 * MOD 

4016O IF FLAG = 1 THEN ZS = »_■■ 
LEFTS (2$, LEN (z? , _ , , + 
V0S : GOTO 40 180 
40170 ZS = LEFT? (ZS, LEN (Z S ) - 

■1 ) + V0$ 
40180 FLAG = 
40190 RETURN 



Antonio Carlos Palmeira Salles-PB 



Se voce quiser retornar da condicab de caracteres de 
tamanho duplo (32 cpl) sem ter que usar CLS e corn Tsso 
apagar toda a tela, digite em BASIC: 

POKE 16912,40 : OUT 236,0 < ENTER > (Mod III) 
POKE 16445,0 : OUT 255,0 '< ENTER > (Mod I) 

A linica coisa diferente que acontecera- (mas que 
pernute mventar efeitos especiais na tela) 6 que ao 
retornar aos caracteres de tamanho normal, tudo que 

ITJIJT™ tda eStat f com um e W° ™ franco 
TuITa a™ caracteres (P° is cada cardter duplo ocupa 
o lugar de dois caracteres normais). Para verificar, rode 



Linha TRS-80 



Otimizacdo de caracteres duplos 



Linha 



Sinclair 



Zerando 
qualquer linha 

A dica "Zerando REM", 
publicada na SecSb Dicas de MS 
n9 27, zera apenas as linhas de 
coment^rio dos programas em 
BASIC. Com pequenas 
alteracSes, entretanto, podemos 
fazg-Ia zerar qualquer linha de 
programa. Para tal, digite a dica 
"Zerando REM" e faca as 
seguintes alteracoes: 



9870 INPUT X 
9960 IF PEEK (L+5)<>X 
THEN RETURN 



A linha 9870 recebe o c6digo 
da instrucao cujas linhas serao 
zeradas, Se, por exemplo, 
X- 245, entao todas as linhas 
PRINT receberao o mimero 
e nao poderao ser mais deletadas. 
Com relacao is outras 
instructs (IF, LET, INPUT 
etc.), consulte o manual do seu 
equipamento. 



Rodrigo Loureiro Pinto-RJ 
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5-31 



Hi 



este exemplo e depois adapte esta dica as suas 
necessidades: 

1 CLS 

10 PRINT CHR?(23) 

20 PRINT@80, "CARACTERES DUPLOS" 
30 FOR 1=1 TO 100 : NEXT 

11 PnRVl^nV ° UT 236 '° = REM " Mod "I 

5 FOR 1=1 TO 100 ; NEXT 

6 GOTO 10 



Roberto Quito de Sant'Anna-RJ 




Com este programa, os micros da linha Sinclair facilitam a preparacao. 
de escrituras de compra e venda de propriedades rurais 



De azimute em rumo 



Laci Mota Alves 



Odesenvolvimento de microcom- 
putadores nationals abre novas 
perspectivas de maior automa- 
tizacao da topografia no Brasil. 
Com relacao aos micros da linha Sinclair, 
em decorrencia de sua capacidade de 
memona de ate" 48 Kb de RAM e pos- 
sibilidade de conexao aumaimpressora, 
espera-se seja de grande valia na elabo- 
racao de planilhas topogrtfficas. O que 
podera* causar incomodo em alguns mo- 
mentos 6 a impressSo dos somente oi- 



to digitos significativos que, as vezes, 
sa"o insuficientes para apresentar adequa- 
damente certos resultados* 

A calculadora programavel HP-97, 
por sua vez, mostra^se eficiente na re- 
soluca"o de problemas de topografia. 
Tern a vantagem de imprimir ate* dez di- 
gitos significativos, tern 6timos recursos 
de programacao, mas apresenta s6 26 re- 
gistradores para o armazenamento de 
numeros e impressa"o em papel termico. 
Entretanto, 6 bastante propj'cia a pre- 




10 DIM R$ (4,3) 

11 DIM..G${1,7) 

12 LET D=PI/PI+PI/PI 
.13 LET P=180 

14 LET C=60 

15 LET U=D/D 

16 LET Z=10 

20 LET R${U)=" NE" 
30 LET R${D)=" SE" 
40 LET R$(P/C)=" SW" 

50 LET R$ (D*D)=" NW" 

51 LET DECIMAL=250 
60 LET GRAU=310 

70 PRINT "ENTRE COM AZIMUTE EM 
G.MMSS" 

71 PRINT " RUMOS:"; 
80 INPUT AZ 

90 LET G=AZ 
120 GOSUB DECIMAL 
140 IF G>=F*D THEN LET G=G-INT 

(G/F/D) *P*D 
150 LET Q=INT (G*D/P)+U 
160 IF Q>D+D THEN LET Q=U 
170 LET R=((INT (Q/D) -G/F) /COS 

(PI*Q))*F 
180 LET G=R 

210 GOSUB GRAU 

211 LET G$(U)="" 

220 LET G$(U,D)=STR$ G 

221 IF G>=Z THEN LET G$(U,U TO 
D)=STR$ G 

222 LET G$(U,D+U)="." 

223 LET G$(U,Z/D)=STR$ M 



224 IF M>=2 THEN LET G$(U,D*D T 
O Z/D) =STR$ M 

225 LET G$ (U, Z/D+D) =STR$ S 

226 IF S>=Z THEN LET G$(U,C/Z T 
Z/D+D) =STR$ S 

227 FOR I=D TO Z/D+D 

228 IF G$(U,I)=" " THEN LET G$ { 
U,I)="0" 

229 NEXT I 

230 PRINT TAB 11;G$ (U) +R? <Q) 

231 GOTO 80 

240 REM *********************** 

250 REM *DECTMAL* 

260 LET M=INT (G*Z*Z)/Z/Z 

270 LET M={M-INT M)/C*Z*Z 

280 LET S=(G*Z*Z-INT (G*Z*Z))/P 
/D*Z 

290 LET G=INT G+M+S 

300 RETURN 

310 REM *GRAU* 

320 LET MI=(G-INT G) *C 

330 LET M=INT MI 

340 LET S=INT ( (MI-M) *C+U/D) 

345 LET G=INT G 
-350 IF S=C THEN GOTO 370 

351 IF M<C THEN GOTO P*D 

352 LET M=U-U 

353 LET G=G+U 
360 RETURN 
370 LET S=U-U 
380 LET M=M+U 
390 GOTO 351 



paracao de dados a serem arquivados e 
prooessados pelo micro. Este , proporcio- 
nando o uso de caracteres alfanum^ri- 
cos, imprime resultados mais bem elabo- 
rados, contribuindo para diminuir enga- 
nos e omissOes a que estamos sujeitos. 

Como exemplo, elaborou-«e um pro- 
grama de computaca'o em BASIC em 
um TK82-C que transforma azimutes 
em rumos. Fatilita sobremaneira a pre- 
paracao de memorials descritivos que 
constam de escrituras de compra e ven- 
da de propriedades rurais. Um memorial 
descritivo € feito de modo a fornecer a 
direca~o, o sentido e a distancia de cada 
alinhamento que compGe a poligonal fe- 
chada que delimita a propriedade, as- 
sim como suas confrontacOes. 

A direca"o e o sentido de cada alinha- 
mento s£o dados, geralmente, pelo rumo 
magn^tico, que pode ser NORDESTE 
(NE), SUDESTE (SE), SUDOESTE 
(SW) ou NOROESTE (NW). Este pro- 
grama podera servir como sub-rotina pa- 
ra outro de natureza mais complexa e 
abrangente. Aceita azimutes no sistema 
sexagesimal e fornece resultados sob a 
forma G.MMSS Q, em que: G = grau, 
MM = minutos, SS = segundos, Q = qua- . 
drante (NE, SE, SW ou NW). Os azimu- 
tes maiores ou iguais a zero devera"o ser 
digitados como G.MMSS, ex: 354.4532, 
que corresponde a 354945*32". ■ 



Lad Mota Afves d engenheiro f/orestal forma- 
do em 1973 pela Unlversidade Federal de VI- 
gosa — MG. £ p6s-graduado em CiSncia F/o- 
restal e leciona atualmente Topografla e Foto- 
grametria na Esco/a Superior de Agronomia 
de Paraguapu Pau/ista — ESAPP. Al6m dlsso, 
presta servioos autdnomos de Topografla, 
ConservapSb do Solo e outros de Engenharia 
F/orestal desde 1975. 
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MICRO SISTEMAS, maio/84 



mmmmmm 



MICRO SISTCMAS SEI - Sistemas Eletronicos de Informal, divisao 
da Abni Cultural, e Telesp tern o prazer de apresentar. . . 




o servigo Videotexto para usu6nos de microcomputadores. 



Com o Telesoftware voce tern a sua disposicao, 24 horas por dia 
em sua casa, uma ampla biblioteca de programas de uso pessoal, jogos e 
lazer, educauvos, administrates, financeiros, tecnicos /cientfficos 
^^ T *£<r RO SISTEMAS. Sao programas - a princfpio 
compativeis com a linha TRS-80 - selecionados e testados pela Revista 
que voce podera carregar diretamente no seu micro, sem ter que digita-los. 
Para utihzar esse servico, tudo o que voce precisa e: 
* Ter um micro CP-500 ou CP-300 
* Ser assinante do Videotexto 
• Adquirir um kit composto de interface RS232- C, 
modem e software de comunicacao 
Se voce tern um desses micros, nao perca tempo! Entre em contato 
com a Telesp (Videotexto — Gerencia de Usuarios, tel.: 544-2535) e 
comece a "tilizar esse novo e revolucionario meio de comunicacao 



,. VHicro JVm 
istemas jLS 



A I 
CLUBE [ 



Associe-se a 
TIS,-um exei 
TOSde10% 
TAS, CURSO 

— Servlpos i 

— Associa^ 

— Participn 
Concureo 

— Novos Lar 
DOS (Bre 
LHASP/M 
CLAIR - 
njca") 

ANUIDADE: C 
somente ao n 
um exemplar 
Envle noma, i 
seu amlncio 
diata). 



Comunicaq 

CAD 

CEP 010 



(*)Com 
. to-Soft i 



f Nc 

TELE 

O Lojao ( 
descomptu 
Micros, p< 
tos. Softw; 
Revistas, C 
nicos, Pe?; 

FINANCI 

Compre pi 
Reembblsc 

TELE 

R. Marque 
TeL: {( 
(5Q00( 

(') Sr. Indusi 
produto m 
Contato ai 
220-7377 (. 
disom) 





m.a. 3erutcns 



Alfa Bit 
CLUBE DE COMPUTApAO 



Assocle-sfl ao ABCc e ganfie Aniinclo GRA- 
TIS,, urn exemplar de ALFABIT e DESCON- 
TOS de 10% na compra de LIVROS, REVIS- 
TAS CURSOS e PROGRAMAS, alem de: 

— ServJcos de "Reprinters" e Consultas 

— Associate a Clubes Europeus 

— Participagao em Cursos, Congressos e 
Concursos 

— Novos Langamentos a PRECOS REDUZI- 
DOS (Breve: IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS OE LOGICA SIN- 
CLAIR - Lanfamento "Digital EletrO- 
n[ca ) 

ANUIDADE: CrS 1.000 (hum mil cruzeiros) 
somente ao receber sau Cartao-Deseontos e 
am exemplar de "Alfabit" 
Envle nome, endareeo, prafissSo e texto do 
sej anuncio (caso queira publicagao ime- 



NOVIDEIAD 

Comurticagao e Informatfca Ltda 

CAIXA POSTAL 9978 

CEP 01051 - Sao Paulo, SP 



OComercializamos seu proje 



to-Soft ou Hard. Escreva-nos 



T 



No Recife, visile 
TELEVIDEO (') 

Lojab de tnformatica mais 
descomplrcado do pais! 
Micros, penfencos, supnmen- 
tos, Software, Cursos, Livros e 
Revistas, Componentes Eletro- 
nicos, Pecas e Som. 



PREgOS ESPECIAIS. 
RNANCIAMENTO PROPRIO. 



Compre pessoaimente ou peio 
Reemboiso Postal: 

TELEVIDEO LTDA. 

R Marques do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 



(')Sr. Industrial: distributmos s*u 
produto nas melhores condi$oes. 
Contato em Sao Paulo: Tel.: (011) 
220-7377 fSr. ANDERSON - Mun- 
disom) 



Slstemas 



PROBLEMAS 

COM SUA 
ASSIIMATURA? 

Escreva para o nosso Departa- 
mento de Assinaturas do Rioou 
Saio Paulo e envie, para facilitar 
a sua etiqueta adesiva de remes- 
sa. 



4USLU 



Rio de Janeiro - Av. Presidente 
Wilson, 165/grupo1210,Centro 
RJ, CEP 20030 - tels.: (021) 
262-5259 e 262-5208; 
Sao Paulo - R. Oljveira Dias, 
153, Jardim Paulista, SP CEP 
01433 - tels.: (011) 853-7758 
881-5668 e 853-3800. 



DATAMICRO 



VENDADE 

J^OCOMPUTAQORES 

TK 83, 85, & 2000 COLOR 

^CP 300, 500 & 600 

COLOR 64 (EXT. BASI C) 

: SUPftmENTOS 

;. '.Prsquete,, ,f i t.as«: form cont i o uo ■' i '' 



CQNSIATORIADB StSTEMAS I 
Di,#gnQ3t{cp e apbjo a decisao 



ETREINAMENTO 

Introducao aos microcomputadores 

I:;;;;;::;;;;;:;.;;;' ■ ;";L) t)Q Liagem Bas ic :'v::::. 
" Aplicagao dps micros 1 ; ,;,'';"'•,'',: 
;;;';■;; ■ ■• na; ;E ngenhta ria; •'';■;. ■„;;:.; ' "■;.;• 
KdtCf ocomputadores para criain pas » 

; INSCfUgCfES ABERJAS 
■■'Lfyros^e'-revistas^aspeclafi^ados ■;": 



Vise, de Piraja, 547 Sobreloja 211 

Cep. 22.410 Ipanema Rio RJ 

Tel.: (021) 274-1042 

DESPACHAMOS PARA 

TODO O BRASIL 



SiKC0aift c Pi?oce 



O lugar compativel 

com voce e seu 

micro. 



Micros 



— Software 



Rua Dias da Cruz, 215 

s/804 — Rio de Janeiro— RJ 

Tel.: 594-2699 



£ 
ASSINE 




/WCTO 



MICROLOGICA 

Engenharia de Sistemas Ltda 
Consultoria de Hardware 

ASSISTENCIA TECNICA 

A MICROCOMPUTADORES 

Compativeis com APPLE. 

TRS80, IBM PC, ZXS1, jogos 

eletronicos e outros. 



^ 



^n^iVieht^vddvcbriW^to; de 
^"irHan^e'ttjCap^edrti^custo ! " 
rTiinimi^dor^yo do Valor 
norfngt aprescido do custo 
de pe^as Jquando houver); 



Temos programas comerciais, 

utilitarios, educacionais, 

aplicativos e jogos novissimos 

para APPLE II em Diskettes 

a partir de 15 mil 

AV PRESIDENTE VARGAS, 542 

/ 191 2 — 263-9925 

RIO DE JANEIRO (RJ) 




1 



DESENHO • PINTURA - ENGENHARIA 
PAPELARIA ■ ESCRITORIO - MAQUINAS 91 
ESCRRQRfO E SUPRIMENTOS EM GERAL 
O BEL-BAZAR 
ELETRONICO 



ond* Met AIMOA •neontra preco 
■ qu«lld*d« d» ANTIGAMENTEI 



AV. ALMIRANTE BARROSO, 81 - U "C" 

TEL: 2623229 ■ 262-9088 - 24(W410 ■ 221.6282 

RIO DE JANEIRO - CASTELO 



APPLE II 



TransformagaG PAL-M 

Assistencia Tecnica 

Expansoes 



UNITRON 



Assistencia Tecnica 

Autcrizada 
Vendas • Leasing g 
Expansoes § 



MICROEQUIPO 



Manutencao 
na sua empresa 

Av. Marechal Camara, 271/101 
'^Rio de Janeiro Tel.: 262-3289. 



"MIKRO S" 

AGORA NO 

LEBLON! 

Av. Ataiilfo de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PRECOS 

"INCRJVE1S" DA "MJKROS" 

DO LEBLON, APOS SUA 
EPOCA DE INAUGURACAO. 



MiCtiOCOMPUl ADORES 



NAJA - JR-SYSDATA - UNITRON 

COLOR 64 - APPLE-II PLUS 

CP-200^ CP-300 - . CP-500 

T4<-83-TKa5 - RINGO 



SISTEMAS 



SOFTWARE (NAC.E IMPORT) 

IMPRESSORAS E PER1FERICOS 
CURSO DE BASIC 



PROFISSIONA1S 

ALTAMENTE ESPECIALIZADOS 
PARA ATENDE-LO 
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bog 

O Comando M 
e as principals 

rotinas do SGM 



Vamos iniciar este mes a cons- 
truct) do MICRO BUG, e 
nesse primeiro contato discu- 
tiremos algumas preocupa- 
fQes e cuidados a serem tornados. Em 
primeiro lugar, i preciso seguir a risca o 
texto e nao saltar explica9oes ou proce- 
dimentos. £ de vital importancia que o 
ieitor entenda o que estd fazendo antes 
de se aventurar em modificacoes.Mesmo 
os leitores que ja conhecem e dominam 
o Assembler devem ler com atencao ca- 
da tbpico, pois tudo foi planejado para 
ter uma sequSncia tanto de funcoes 
quanto de explica95es. 

Outro ponto importante 6 quanto a 
gravac2o do MICRO BUG, mais precisa- 
mente quanto a fita cassete a ser empre- 
gada para tal. No topico sobre os co- 
mandos de grava9ao iremos abordar 
esses problemas mais a fundo, porem no 
momento 6 suficiente o Ieitor separar 
uma fita exclusivamente para este traba- 
lho. De preferencia, uma fita C-46 de 
marca conhecida (Scotch ou Basf). 

A REPRESENTACAO 
DO ASSEMBLER ZSO 

O grande segredo para se dominar a 
linguagem de maquina esta na capacida- 
de de compreensao e interpretacao dos 
mnemfinicos da Z80. De fato, basta en- 
tendermos o que aqueles nomezinhos es- 
tranhos querem dizer para que todo o 
misteno desapareca. 

Vejamos um exemplo: o codigo 62 
corresponde a instruc^o LD A, dd. 
Esta instru9So serve para carregar o 
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LD 

LD 

LD 

LD 

EX 

JP 

CAl 

LD 

ADD 

SBC 

ADD 

INC 

DEC 



BC,x: 
HL r s: 
< HL ) 



< HI., 
,HL 



dd 

< HL 



A, 
DE. 

X X )■{ X 

L *c, z z z 
D , d d 

A,C 

HL,DE 

HL,BC 

HL 

de: 



LET BC=xxkx 

LET' HL=zzzz 

POKE HL,dd 

POKE xxxx,L e POKE xx; 

LET A-PEEK HL 

LET HL«DE e LET DE=HL 

'GOTO xxxx < JP^JumP) 

GOSUfi 22ZS 

LD D«dd 
LET A=A+C 
LET HL=HL-DE 
LET HL«HL+BC 
LET HL=HL+i 
LET DE=>DE-i 



:+l,H 



Figura 1 — Algumas instrugoes Assembler possuem uma mecfinica bastante semelhante a deter- 
minadas instrugoes do BASIC. Outras porim s6 sdo simuladas atravis de rotinas complexas. 



acumulador com o valor genenco dd. 
Assim, poderiamos dizer que LD A,01 
equivale a LoaD Acumulador com o 
valor 1 . Em BASIC usariamos o coman- 
do LET AM. Simples, na"o? 

Como o acumulador, existem mais 
alguns registradores, porem s6 nos im- 
portarao os seguintes: H, L, B,C,De E. 
Estes registradores s§x> comumente agru- 
pados na ordem HL, BC e DE, e desta 
forma qualquer um destes pares pode 
representar um valor entre e 65.535 (2 
bytes). 

Na figura 1 temos algumas instructs 
do Assembler e os seus correspondentes 
aproximados em BASIC. A partir de 
agora usaremos as representacSes 
dd,xxxx,zzzz, etc. para indicar valores 
de 1 byte (dd,xx,yy,zz) e valores de 2 
bytes (xxxx,dddd,yyyy,zzzz). 



A FUNCIONAUDADE . 

DO STACK DA Z80 / 

Compreender o principio de funcwi- 
namento do Stack da 280 e, sem duvi- 
da, o passo mais importante dentro/da 
programa9So em linguagem de mdquina. 
Acompanhe pela figura 2 a explicagSo a 
seguir: quando o sistema se organiza, ele 
determina um endere90 para o par de re- 
gistradores SP (Stack Pointer). Neste e 
nos enderecos subseqiientes, em ordem 
decrescente, a Z80 hi armazenar e recu- 
perar temporariamente informa96es. 
Isso sera* feito pelas instru9oes PUSH e 
POP e cada informa9ao armazenada ou 
recuperada devera constar num par de 
registradores (HL, BC, DE ou AF). A 
posi^ao do Stack 6 sempre atualizada 
em dois bytes e aponta para o primeiro 
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F 

f* 
m 

el 

Pi 
er 
er 

8* 
o 

p; 

fa 

gi 
ei 
m 
S\ 
o 
al 
ai 

*I 
m 

w 
P 

re 
C 

ei 
3 

d: 
d; 

Q 
s 

e 

P 

e 

r< 

c< 



rr 



31997 

3.1990 

01999 

=>32000 



HL=ddzz ou 

H=>dd e L=zz 



31997 
SP ">3i99B 

31999 
32000 
32001 



dd 



SP 



31997 
31990 
31999 
O 3200(1 
32001 



apas PUSH HL 



apos pop di:;: 

DE=»ddaz 



ma tmportancta para a criagao de programas Assembler. wwmemo e ae extre- 



elemento da pilha e, assim, por exem- 
plo, se o Stack estiver apontando para o 
endereco 32000, ap6s urn PUSH HL, o 
endereco 31999 conterd o valor do re- 
gistrador H, o endereco 31998 conterA 
o valor de L e o Stack estarl apontando 
para o endereco 31998. 

Para recuperar estes valores basta 
fa2Br POP DE (por exemplo) que o re- 
gistrador E assumird o contetido do 
endereco 31998, o registrador D assu- 
mira" o conteudo do endereco 31999 e o 
Stack estard novamente apontando para 
o endereco 32000. Note que POP nao 
altera o conteudo dos enderecos, mas 
apenas modifica o valor do SP. 

O Stack, no entanto, nffo 6 ocupado 
apenas dessa forma. Ha" uma outra for- 
ma de utilizacao que costuma causar 
uma infinidade de dores de cabeca aos 
programadores: atrave's das sub-rotinas... 
Imaginemos o nosso Stack no ende- 
re9o 32000. Apos uma instrucao do tipo 
CALL xxxx, o Stack apontara" para o 
endereco 31998 e os enderecos 31999 e 
31998 conterao o endereco de retorno 
da dita sub-rotina, ou seja, o endere9o 
da primeira instrucao ap6s CALL xxxx. 
Quando houver uma instrucao RET, o 
Stack apontara" para o endereco 32000 
e a execucao do programa sera desviada 
para o endereco armazenado em 31998 
e 31999. Isso implica em que toda sub- 
rotina deve terminar por um RET, caso 
contrario o programa podera ser desvia- 
do para um endereco desconhecido. 

Obviamente, programar em lingua- 
gem de maquina nao e* s6 isso, e nesse 
momento seria prudente dar uma recapi- 



tulada no curso de Assembler da propria 
MICRO SISTEMAS. 

OS PREPARATIVOS 
INICIAIS E A DIGITACAO 

A nossa primeira ac£o sera" reservar 
espaco no topo da RAM para que Id seja 
posicionado o SGM (Sistema Gerencia- 
dor de M6dulos). Para o SGM iremos 
reservar 2 Kbytes, sendo que isso serd 
feito pela alteracao do valor da variaVel 
RAMTOP. 

Faca POKE 16389, 120 e em seguida 
NEW. O comando NEW e fundamental, 
pois 6 ele quern organiza o Stack da Z80 
(se for omitido, o Stack permanecera 
ainda no topo da RAM). Quando, por 
um motivo ou outro, for dado um 
POKE dentro do Stack, o sistema perde- 
ra toda a referenda de retorno e o micro 
muito provavelmente saira do ar. Acom- 
panhe pela figura 3 a mecanica da reser- 
va de espaco Qembre-se sempre que toda 
vez em que houver necessidade de reser- 
var espaco no topo da RAM o procedi- 
mento devera* ser o que acabamos de 
ilustrar, ou seja, POKE e NEW). 

Passemos entao a listagem 1 . Ela ser- 
vira para a introducao da primeira parte 
do SGM, com a impressao dos enderecos 
em hexadecimal, pois este sera o padrao 
adotado daqui para frente. Ap6s a digi- 
tacao da hstagem 1 , digite RUN e res- 
ponda a pergunta ENDERECO? com o 
primeiro endereco da listagem ou bloco 
que for digitar. Os enderecos subseqiien- 
tes na~o precisam ser digitados. 

Digitando M, o sistema retorna a per- 
gunta ENDERECO?, e digitando Z o 



organizagao inicial 



SP 

1 



RAMT0P=32768 



memoria RAH 



apos POKE 16389,120 



RAMTOP=30720 SP 



memoria RAM 



area a ser reservada 



apos NEW 



SP 



memoria 



* \ 

RAM 



RAMTOP=30720 



area" <cegerv«M3a 



ass 
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Era 

s6 o que 

-faltava 

Agora, com as interfaces 

TL 85 e TL 300, voce ja pode 

ligar o seu micro TK 85, TK 83 

e CP 300 em uma impressora. 




i****^ 1 



TL85 



TL300 



Acionada pelos comandos de impres- 
sao, a interface TL 300 possibilita a ligacao 
do CP 300 a qualquer impressora ou ma- 
quina de escrever eletronica, com comuni- 
cacao paralela Centronics. Permite, ainda, 
a expansao do sistema, oferecendo condi- 
?6es para que o micro aceite outros perite- 
ricos. 




Tekno 
Logic a 



Produtos e Servipos para a 
Informatica Ltda. 

Av. Sao Pedro, 1062 - Fone{0512) 42-8549 
90000 Porto Alegre - RS 

Distribuidores 

Sao Pauto: Pro-Controle Com. e Controle 

Ltda. - Fone (0192) 32-7364 - Campinas 

Goias e Distrito Federal: 

New Computadores ComSrcio e 

Representagoes Ltda. 

Fone (061) 274-5060 ■ Brasilia 
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Interface que compiementa 
seu TK 85 ou TK 83, ampliando largamente 
a aplicacao do mesmo. 

• aciona qualquer impressora ou maquina 
de escrever eletronica, com comunica- 
c3o paralela Centronics; 

• acerta todos os comandos relacionados 
com impressora (Copy, Llist, Lprint); 

• gera maiusculas, minusculas, acentos 
e controles do ASCII, diretamente do te- 
clado; 

• permite a conexao de outras expans6es. 

Versao com Editor Facflimo de usar; orien- 
tado para flngua portuguesa; gravado em 
EPROM; marginacao automatica; separa- 
gao silabica e outros recursos. 
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O COMANDO M E AS PRINCIPAIS ROT1NAS DO SGM 



Listagem 1 



a FAST 
10 SCROLL 
15 SCROLL 

20 PRINT "ENDERECO?" 
25 INPUT EI 

30 LET E=CODE E«*4096+CODE E$( 
2>*256+C0DE E$(3)*16+C0DE E*<4)- 
122332 

35 LET US--"" 
40 SCROLL 

45 PRINT E$;" " f CHR!6 <INT (P 
EEK E/16>+28>+CHRt (PEEK E-INT ( 
PEEK E!/i6>*i<5+28)+" ", 
50 IF U%="" THEN INPUT U3> 
55 IF U$="M" THEN GOTO 10 
54 IF US="Z" THEN GOTO 100 
57 IF U«s"" THEN GOTO 75 
60 PRINT U5( TO 2) 
65 POKE E,CODE U4*16+C0DE UK 2 
)-476 

70 LET U$=UK3 TO ) 
75 LET E=E+1 
80 LET A=INT CE/256) 
85 LET 8=E-A*256 
70 LET E%=CHR% (INT (A/16)+28) 
+CHRS (A-INT (A/16)»lA+28)+CHRS 
(INT (B/16)+28)+CHRl (B-INT (B/l 
6>*16+28> 
95 GOTO 40 
100 CLEAR 
105 DIM AK2048) 
110 FOR A=i TO 2048 
115 LET A5(A)=CHR* PEEK (A+3071 
9? 
120 NEXT A 

125 PRINT AT 21,0 : "PR0NT0 PARA 
GRAVAR" 
130 PAUSE 4E4 
135 SAVE "MICRO BUG" 
140 FOR A=l TO 2048 
145 POKE A+30719,C0DE M(fl) 
150 NEXT A 



sistema grava na fita cassete uma copia 
do SGM, ou de tudo que jahouver sido 
digitado . 

Os blocos Assembler sao de digitacao 
direta, porem as listagens em mnemoni- 
cos requerem um cuidado maior (veja a 
listagem 2). Elas sao constituidas, na 
maioria das vezes, por quatro colunas. A 
primeira (a esquerda) corresponde aos 
enderecos em hexadecimal onde estao 
(ou estarao) os codigos de maquina. Na 
segunda coluna estSo os cddigos propria- 
mente ditos e na terceira coluna estao os 
mnemonicos correspondentes a estes 
codigos. A quarta coluna constitui uma 
opgao para comentarios e estes serao 
sempre referenciados por um ponto e 
vfrgula. 

Para digitar a listagem em mnemoni- 
cos, responda a pergunta ENDERECO? 
com o primeiro endereco da coluna 1 e 
aseguir introduzaosc6digosdacoluna2. 

Toda vez que for digitar codigos de 
maquina, em blocos ou em listagens, 
nao esqueca de faze-lo com a maior 
atencao possfvel, pois qualquer erro sera 
invariavelmente fatal, fi prefen'vel per- 
der-se um pouco mais de tempo na digi- 
tacao do que procurar um c6digo errado. 
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Ainda com rela$ao a listagem 2, note 
que em ambas as rotinas o valor original 
do par HL € preservado. O SCROLL pa- 
ra cima ajusta a proxima impressao em 
AT 21,0 e o SCROLL para baixo em 
AT 0,0. ObservacSo: nos comentarios, 
algumas instrucoes LET e THEN sao 
omitidas para simplificar a explicagao; 
todos os valores, salvo os enderecos do 
prdprio SGM, sSo apresentados em deci- 
mal. 

A APRESENTACAO 
E A IMPRESSAO DE STRINGS 

Todo programa que pretenda um 
mfnirno de clareza deve conter alguns 
elementos que o identiilquem e criem 
uma distincab em relagao a outros pro- 
gramas. Alem disso, e importante man- 
ter a fonte, pois pode-se necessitar, no 
futuro, de informacoes acerca do siste- 
ma. Se a origem do programa for omiti- 
da, poderao ocorrer problemas de infor- 
macSo dificeis de serem solucionados. O 
credito do autor tambem nao deve ser 
substituido pelo nome do usuario, pois 
tal atitude na~o resulta em nenhum ga- 
nho para o seu praticante, a nSo ser tal- 



vez a satisfacifo de ver seu nome na tela 
do video, 

SGM possui uma apresentacao bas- 
tante sofisticada, pore'm sua mecanica e 
simples. O sistema todo funciona atrav^s 
de SCROLL, tanto para baixo como pa- 
ra cima (veja listagem 2), pore'm a prin- 
cipal linha e* sempre a da posigao 21. 
Quando se entra no sistema, ou quando 
se produz um RESET, e apresentado o 
nome MICRO BUG, seguido da fonte 
MICRO SISTEMAS e logo abaixo o 
nome do m6dulo, se houver algum im- 
plementado. A posigao AT 21,0 contem 
o prompt " > " e o cursor (GRAPHICS 
4). 

Os comandos funcionam diretamen- 
te, sem label, e cada tecla corresponde a 
um comando. As teclas de S a Z s2o re*- 
servadas para o m6dulo que estiver im- 
plementado. 

A impressao do nome MICRO BUG, 
em caracteres gr&ficos, sera detalhada- 
mente discutida quando virmos a im- 
pressao de valores numericos, pois ela 
utiliza, atraves de um macete, a rotina 
de impressao de dois digitos hexadeci- 
mais. principio de impressao das 




rotina 1SCRUP (scroll para cima> 



7860 
7861 
7864 
7865 
7868 
7869 
786A 
786D 
786F 
7871 
7872 
7874 
7877 
7878 



2A DC 40 

E5 

11 21 00 

19 

Dl 

01 D6 02 

ED BQ 

OE 41 

A7 

ED 42 



22 
El 

C9 



OE 40 



PUSH HL 

LD HL, C400C) 

PUSH HL 

LD DE,0021 

ADD HL,DE 

POP DE 

LD BC,02D6 

L..DIR 

LD C„41 

AND A 

SBC HL,BC 

LD C400E) 7 HL 

POP HL 

RET 



;art|uiva HL 

t HL=PEEK 16396+256*PEEK 16397 

•DE-33 
;HL=HL+DE 



f BC=726 
;produs 
= 065 



icrol 1 



;HL=HL-BC 

;P0KE 16398, L 
jrecupera HL 
^RETURN 



e POKE 16399, H 



rotina ftSCRDN (scroll para baixo) 



7879 
787A 
7S7D 
787E 
7881 
7882 
7885 
7886 
7887 
7888 
7889 
788B 
788C 
788E 
788F 
7890 
7892 
7893 
7894 



00 



E5 

2A OC 40 

E5 

01 B4 02 

09 

11 21 

E5 

19 

Dl 

EB 

ED B8 

AF 

06 20 

23 

77 

10 FC 

El 

23 

18 DE 



PUSH HL 

LD HL, C400O 

PUSH HL 

LD BC,02B4 

ADD HL,BC 

LD OE-0021 

PUSH HL 

ADD HL,DE 

POP DE 

EX DE,HL 

LDDR 

XOR A 

LD B,20 

INC HL 

LD (HL),A 

DJNZ 788E 

POP HL 

INC HL 

JR 7874 



HL 

16396+256*PEEK 16397 



; arqi.i i va 
-HL=PEEK 

;BC°692 
■ HOHL+BC 
;DE=33 

=HL=HL+DE 



; inverts valores DE s HL 

-produg scrol 1 

; A=0 

t B=32 

;HL=HL+i 

jPOKE HL,A 

•B=a-1 s IF B<>0 GOTO 788E 

;HL=HL+1 
fGOTO 7874 
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Listagem 3 



rot iiiif '*i :> fclNT < 



mpressao cle str i n<;js ) 



78C1 
78C4 
78C7 
7 8 Cft 
78 C9 
78 CB 
78CC 
78CE 
78CF 
7 FIDO 
7BDi 



CD 
CD 
El 
7E 
£6 
D7 
CB 
23 
E'ti 
CO 



60 
60 



71" 



7E 



FA 



78 



CALL 7860 
CALL 7860 
POP HI.,. 
LD A r (HI...) 
AND 7F- 
RST .10 
BIT 7 t (HL) 
INC HL 
PUSH HL 
RET NZ. 
JR 78C7 



;(K)SUB 'fiSJCRUP 

(GOSUB ISCRUP 

y H L ~ tj n cl e r cl o c: a r a c: 

jA^PEEK HL 

SiIP A>i28 THEN LET A^A-S28„ 

; PR INT CMR<& A f 

ItIF PEEK HLM28 THEN LET 7-0 

;HI...™HL+i 

jr^poo? STACK 

flE 2>D THEN RETURN 

jGOTO 70C7 



para imprimir Lima string (por sxemplo PRINT "MICRO STSTFMAS' 
procedimento deve eer q 3 e S u i nt: ea 



■) £1 



xmkk CD Cl 78 .. . 

JoiWK + 3 32 2E 28 37 

!!M 00 38 2E 

38 39 2A 32 
26 B8 

xxi<x + i7 11 



CALL 78 Ci 

define MICRO SISTEMAS 



LD 



strings, por outro lado, baseia-se na sua 
definicao logo ap6s uma chamada 
CALL, o que em BASIC equivaleria a 
PRINT "texto". 

Isso € possivel pela manipulacSo do 
Stack da Z80 (listagem 3), Logo ap6s a 
chamada, o sistema obtem o endereco 
de retorno, ou seja, o endereco apos 
CALL, e passa a imprimir como caracte- 
res os bytes subseqiientes. A cada byte 
impresso, o Stack e* atualizado para que, 
no final, o sistema saiba para onde vol- 
tar. A sinalizacao de final de string 6 
feita pelo bit 7 do ultimo cardtei. Se ele 
estiver setado (= 1), enta"o o sistema re- 
torna para a instrucao seguinte ^ string. 

Este artificio 6 usado pelo SGM para 
imprimir todas as mensagens do sistema 
e pode ser facilmente alterado para 
outros usos. A maior caracteristica dele 
e que, na string defmida, o ultimo cara- 
ter deve ser sempre em video inverso 
(repare, tambem na listagem 3, que o 
ultimo S de SISTEMAS deve ser em car- 
ter inverso, e que ap6s a impressao da 
string o programa retoma para executar 
a instrucao em xxxx+17). 

TABELA DE COMANDOS, RESET 
E A ENTRADA NO MICRO BUG 

Para que o sistema responds as teclas 
pressionadas com a execucab de um 
comando e* preciso que haja algum tipo 
de processo do genera: IF INKEYS 
= "B" THEN GOTO... 

Na realidade, o processo utilizado no 
SGM e* bastante diferente deste.ou seja, 
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definiremos uma tabela de enderecos 
que corresponda a cada uma das teclas. 
Nosso intervalo v&ido serd de A a Z, 
sendo que qualquer outra tecla devera 
ser rejeitada pelo sistema. 

A tabela propriamente dita inicia no 
endereco 7940 e vai ate" o endereco 7973. 
Cada dois bytes possuem o endereco de 
execucao de cada comando (veja lista- 
gem 4). 

Quando se entra no MICRO BUG, ou 
apos um RESET, ou quando termina a 
execucao de um comando, o sistema 
fica aguardando que uma tecla/comando 
seja pressionada. Se para aquela tecla 
nao houver comando, o sistema informa 
com a mensagem COMANDO INEXIS- 
TENTE. A este estado daremos o nome 
de Loop de Comando. (Na listagem 4, 
observe que os comandos de S a Z sao 
implementados automaticamente pelo 
mbdulo especifico. O endere90 7A34 
equivale a COMANDO INEXISTENTE e 
deve constar de todas as letras cujos 
comandos ainda nao estejam no SGM). 

Loop de Comando (listagem 5) 
£ constituido por uma rotina bastante 
simples e que funciona da seguinte for- 



Listagem 4 ^ 
dos 



Tabeh de DefinifSo 
Comandos 



794G 

7942 

7944 

7946 

7948 

794A 

794C 

794E 

7950 

7952 

7954 

7956 

7958 

7 95 A 

79.5C 

795E! 

7960 

7962 

7964 

7966 

7968 

796A 

796C 

796E 

7970 

7972 



34 7 A 
34 7 A 
34 7 A 
34 7A 
34 7 A 
34 7 A 
34 7A 
34 7 A 
34 7 A 
34 7 A 
34 7 A 
34 7A 
34 7 A 
34 7A 
34 7 A 
34 7 A 
34 7 A 
34 7A 
34 7A 
34 7 A 
34 7A 
34 7 A 
34 7 A 
34 7A 
34 7 A 
34 7A 



def 

def 

def 

cl e f 

def 

def 

def 

t i e f 

def 

def 

def 

def 

def 

def 

def 

def 

def 

def 

def 

def 

def 

dv? 

def 

def 

def 

def 



7A34 

7A34 

7A34 

7A34 

7A34 

7 A 34 

7 A 34 

7A34 

7A34 

7A34 

7A34 

7A34 

7A34 

7A34 

7A34 

7A34 

7A34 

7 A 34 

7 A 34 

7A34 

7A34 

7A34 

7A34 

7A34 

7A34 

7A34 



j; comando A 
? comando B 
? comando C 
jcomando D 
? comando f£ 
; comando F 
; comando G 
? comando H 
j comando 1 
? comando J 
; comando K 
? comando L 
;; comando M 
; comando N 
? comando 
v comando P 
? comando Q 
; comando R 
? comando S 
P comando T 
; comando U 
j comando V 
; comando UJ 
? comando X 
fconiando Y 
j comando Z 






^i 
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COMANDO M E AS PRINCIPAIS ROTINAS DO SGM 



Listagem 5 — Loopde Comando 



79EA 

79EE 

79F1 

79F4 

79F7 

79F9 

79FC 

7A00 

7A02 

7A03 

7A06 

7A08 

7A0B 

7A0E 

7A1Q 

7A12 

7A14 

7Ai6 

7A17 

7AiA 

7AiC 

7A1E 

7A20 

7A2i 

7A23 

7A24 

7A26 

7A27 

7A2A 

7A2B 

7A2C 

7A2D 

7A2E 

7A3i 

7A32 

7A33 

7A34 

7A37 



ED 73 
CD B4 



CD 
2i 
CB 



2B 
27 
56 



C4 10 
ED 7B 
3E 12 
D7 

2A OE 
36 04 
CD AA 
CD D3 
FE 77 
28 F6 
FE 76 
28 F2 
D7 

CD AA 
D6 26 
38 16 
FE iA 
3F 

38 11 
17 

06 00 
4F 



3E 79 
79 
OF 
79 

78 

3E 79 



40 



78 
78 



78 



21 
09 
5E 
23 
56 
21 



40 79 



4A 7A 



E5 
D5 
C9 

CD Ci 
28 34 
33 29 
2E 33 
2E 38 



78 

32 26 
34 00 
2A 3D 
39 2A 



LD <793E),SP 
CALL 79B4 
CALL 0F28 
LD HL,7927 
BIT 2,<HL) 
CALL NZ.,7810 
LD SP,<793E> 
LD A, 12 
RST 10 

LD HL,(40DE> 
LD (HL),04 
CALL 78AA 
CALL 78D3 
CP 77 
JR Z,7A08 
CP 76 
JR z,7A08 
RST 10 
CALL 78AA 
SUB 26 

JR C„7A34 

CP iA 

CCF 

JR C,7A34 

RLA 

LD B,00 

LD C f A 

LD HL,794Q 

ADD HL r BC 

LD E,<HL> 

INC HL 

LD D,(HL) 

LD HL,7A4A 

PUSH HL 

PUSH DE 

RET 

CALL 78C1 



jarquiva SP para reset 
jimprime titulo e fonte 
{i imp lenient a SLOW 
;verifica se ha' modulo 
i mplementado 

jrecupera SP 
;prompt " >" 



f cursor 

jidenttfica tecla presslonada 
se houver 
p ignore se for DELETE 

j ignore se for ENTER 

;imprime tecla do comando 
jespera tecla ser liber ad a 
jcalcula valor da tecla 
;tecla fora da f a i xa 
imprime COMANDO INEXISTENTE 



-mult ipl ica tecla par 2 
f BC= valor modulo para a 

TA8ELA DOS COMANDOS 
fbase da fcabtsla 

■DE- ender de execussao do 
comando 

sprepara retorno e execussao 
do comando 

jexecuta comando 
t i mpr ime mensagem 
COMANDO INEXISTENTE 





33 


39 


AA 






7A4A 


CD 


60 


78 


CALL 7860 


•scrol 1 para c i ma 


7A4D 


CD 


60 


78 


CALL 7860 


pscrol 1 para c i ma 


7A50 


18 


AA 




JR 79FC 


■aguarda novo comando 



ma: os comandos sao chamados como se 
fossem sub-rotinas. Para o retorno ao 
Loop de Comando, basta haver uma 
instrucao RET, mas em comandos mais 
complexos pode-se langar mao de urn 
RESET que, dependendo do endere90 
de JUMP, vai produzir urn resultado 
diferente. 

No endere90 79EE o RESET e* total, 
havendo a impressao do tftulo, fonte e 
m6dulo implementado. No endereco 
79FC o RESET nao produz alteracoes 
na tela de vfdeo, o que pode causar 
alguma confusao com o cursor. No en- 
dereco 7A4A o RESET produz dois 
SCROLL para cima, repondo o cursor 
na posicab original 21,0. Observa?ao: na 
listagem 5, note a forma como foi en- 
contrado o endereco de execu9ao do co- 
mando e o modo como ele foi chamado 
(o RET do enderega 7A33 equivale a 
um GOTO, pois usa a manipulasao do 
Stack como forma de desvio controlado). 
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AS ROTINAS 
OPERACIONAIS DO SGM 

Existem ainda outras rotinas opera- 
cionais no SGM, rrias na~o as veremos de- 
talhadamente agora uma vez que algu- 
mas sab bastante complexas e necessi- 
tam de um certo conhecimento de lin- 
guagem de maquina. Mais na frente ire- 
mos retornar a elas, mas para os que yi 
conhecem o Assembler a figura 4 con- 
tern uma lista com os respectivos nomes 
e enderecos. As rotinas estao na listagem 
6 e devem estar no SGM antes de fazer- 
mos a nossa primeira entrada nele. 

O COMANDO B 

Quando fizermos a nossa primeira 
entrada no MICRO BUG, devemos ter 
cuidado de ter implementado o coman- 
do B, pois sera" ele quern produzira* o 
retorno ao BASIC. A utilizacao deste 



JJsmgem6 — 
Rotinas do SGM 



783C 
7844 
784C 
7854 
785C 

7896 
7S9E 
78A6 
78AE 
7886 
78BE 

78D3 
7808 
78E3 
78EB 
78F3 
78F8 
7903 
790B 
7913 
791B 

7926 
792E 
7936 
793E 



00 C9 F5 IF IF IF IF CD 
47 70 Fi F5 E6 OF E5 21 
27 79 CB 46 El 20 09 CB 
5F 28 02 EE 88 D7 Fl C9 
C6 iC 18 F9 

D6 DE 47 OE 01 28 04 CB 
11 10 FC 3A 26 79 A9 32 
26 79 3E FF F5 CD BB 02 
7C FE FE 38 F8 06 03 18 
03 F5 06 18 AF OB B8 20 
FC Fl C9 



CD BB 02 
44 4D CD 
C8 FE 77 
FE 74 28 
78 FE 75 

00 00 00 
CB 77 CO 

01 Oi 15 
3A 27 79 
18 B6 



7C FE FE 
BD 07 7E 
C8 FE CO 
24 FE DE 
CA EE 79 
00 00 00 
18 CB CD 
CD F5 08 
EE 10 32 



30 F8 
FE 76 
28 ID 
D4 96 
00 00 
00 00 
2A OA 
18 CO 
27 79 



00 01 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 



7974 


BO F4 BB BO BB 4F BB 40 


797C 


BB 40 FB B4 F4 OB OB B4 


7984 


9A 84 08 OD 50 3F 50 8D 


798C 


50 80 F5 08 D5 08 D5 03 


7994 


82 D5 08 OD 50 OD 78 ID 


799C 


50 80 D7 3A D5 08 D5 FB 


79A4 


80 D5 BS B2 AB 7D 52 A2 


79AC 


AB 70 DA B7 2A B7 2A B7 


79B4 


CD 2A OA 21 27 79 CB 86 


79BC 


2E 74 06 40 7E CD 3E 78 


79C4 


23 10 F9 2E 27 CB C6 CD 


79CC 


C7 78 32 2E 28 37 34 00 


79D4 


38 2E 38 39 2A 32 26 38 


79DC 


00 17 ID 25 24 20 97 01 


79E4 


00 15 CD F5 08 C9 


7A52 


2A OE 40 36 04 CD AA 78 


7A5A 


CD D3 78 2A OE 40 36 00 


7A62 


2B FE 76 20 02 7E C9 FE 


7A6A 


77 20 IA 7E FE 76 22 OE 


7A72 


40 20 24 CD CI 78 29 2A 


7A7A 


3i 2A 39 2A 00 2E 31 2A 


7A82 


2C 26 Bl 18 C3 E5 21 27 


7A8A 


79 CB 66 El 28 02 CB FF 


7A92 


07 23 23 7E FE 76 C8 CD 


7A9A 


AA 78 18 B4 01 03 15 CD 


7AA2 


F5 08 2A OE 40 11 00 00 


7AAA 


7E FE OD 28 2D 00 7E B7 


7AB2 


C8 FE IA C8 D6 IC 38 10 


7ABA 


FE 10 30 OC EB 06 04 29 


7AC2 


10 FD 4F 09 EB 23 18 E6 


7APA 


CD Ci 78 29 2E 2C 2E 39 


7AD.2 


34 00 2E 31 2A 2C 26 Bi 


7ADA 


18 A9 23 7E B7 C8 FE IA 


/ nLC 


C8 D6 IC 38 E3 FE OA 30 


7AEA 


DF E5 F5 21 00 00 3E OA 


7AF2 


06 08 29 17 30 01 19 10 


7AFA 


F9 Fi 4F 09 EB Ei 18 DA 


7B02 


3A 26 79 CB 5F CC B7 78 


7B0A 


CB 57 20 OD 7C CO 3E 78 


7B12 


7D CD 3E 78 AF D7 D7 D7 


7B1A 


C9 E5 IE FF 01 FO D8 CD 


7B22 


Ei 07 01 18 FC CD El 07 


7B2A 


01 9C FF CD Ei 07 OE F6 


7B32 


CD Ei 07 7D CD EB 07 2A 


7B3A 


OE 40 06 09 7E 05 2B FE 


7B42 


76 20 F9 AF D7 10 FD Ei 


7B4A 


C9 



3E 


78 


AF 


D7 


D7 


D7 


iE 


FF 


01 


FO 


D8 


CD 


01 


18 


FC 


CD 


El 


07 


FF 


CD 


El 


07 


OE 


F6 


07 


7D 


CD 


EB 


07 


2A 


06 


09 


7E 


05 


2B 


FE 


F9 


AF 


D7 


10 


FD 


Ei 



com; 
sistei 

basti 
plerr 
Hstaj 



C 

pr6s 
de c 
no i 
ress£ 
na 
lista; 
deve 
que 
rar t 
C 
poss 
do s 
pal] 
da a 
que, 
Lerr 
man 
dad< 
de 
que 

nadi 
pula 
re?a 
siste 
zad( 
con 
pret 
cim; 
o si 
segi 
mal 



ser 

(av£ 

troc 

(int 

Loo 

4, 

inte 



MICRO S1STEMAS, maio/84 



Mi 



comando e* direta, ou seja, quando o 
sistema estiver no Loop de Comando 
bastard pressionar a tecla B. Para a im- 
plementacfo, faca as modificacQes da 
listagem 7. 

COMANDO M 

comando M sera" detalhado nos 
pr6ximos tbpicos pois requer uma s^rie 
de cuidados para a sua compreensao — 
no momento estamos muito mais inte- 
ressados em ver a coisa funcionar do que 
na teoria propriamente dita, certo? A 
listagem 8 conte*m todo o comando que 
deve ser implementado da mesma forma 
que o comando B (nSTo esquecer de alte- 
rar a Tabela de Comandos). 

O funcionamento do comando M 
possui, de certa forma, toda a mecanica 
do sistema MICRO BUG. Ele e* o princi- 
pal rectirso do SGM, pois permite que to- 
da a mem6ria do micro seja vasculhada e 
que, na RAM, possa haver modificacoes. 
Lembre-se, no entanto, que nao e* o co- 
mando quern altera ou modifica os 
dados e sim o operador; portanto, antes 
de fazer qualquer coisa convem saber o 
que se esta" fazendo. 

No Loop de Comando, ao ser pressio- 
nada a tecla M, o sistema imprime M, 
pula um espa?o e passa a esperar um ende- 
reco. Se a tecla ENTER for pressionada, o 
jsistema utilizara" o ultimo enderego utili- 
jzado pelo comando M anterior. Caso 
eontrario, o que for digitado serd inter- 
pretado como um endereco em hexade- 
bimal. Apos a digitado de um endereco, 
p sistema o imprimira* na ultima linha, 
seguido de seu conteudo em hexadeci- 
mal. 

| Nesse esfagio, muitas opcoes podem 
ser utilizadas. S3o elas: tecla K (+) 
[avanfa um endere9o); tecla J (-) (re- 
trocede um endereco); tecla BREAK 
finterrompe o comando e retorna ao 
loop de Comando); e teclas 0, 1, 2, 3, 
I, 5, 6, 7, 8, 9, A, B, C, D, E e F (sao 
nterpretadas como um dado em hexa- 



!EBYTE<783E) 

iliC:ONTR(7896) 

5CONK7BAA) 

STEHP0<7BB7) 

*KElYC78D3) 

SCL..S(798> 

JGRAPH<79iO> 

SCURS0R(7A52) 

SVALDE(7A9E) 

H»ENDER(7B02) 



rotina de ittipressao de um valor pi» hexadecimal 

rot ins de man i pulacao clos bits de MELACJ 

rotina de espera ate que a tecla pressionada se ia 

1 iberada 

retards a execucao do si sterna por alguro tempo 

espera por uma tecla pressionada 

produK um CL.S no video 

modo GRAPHIC!* de SCUR80R 

rot i na do cursor 

obtem um valor numerico digitado pelo usuario 

imprime um endereco 



Figura4 



decimal para modificar o conteudo do 
endereco na posicao AT 21 ,0). 

ENTRANDO NO MICRO BUG 

Se voce leu o texto com aten$a*o, se- 
guiu a risca as instrucoes e ja" digitou tu- 
do, tanto os blocos Assembler quanto as 
listagens em mnemonicos, entao esta* na 
hora de entrarmos no SGM e verificar- 
mos se, na pratica, a teoria funciona. 

Em primeiro lugar, faca uma copia 
do SGM, pois ainda nao sabemos se 
tudo funciona direitinho. Em segundo 
lugar, dS um NEW, pois a partir de ago- 
ra, para continuarmos a digitar, iremos 
utilizar o prdprio SGM. D6 entao um 
RAND USR 31210 e U vamos nos... 

Se correu tudo bem, no alto da tela 
ira aparecer MICRO BUG em letras gar- 
rafais, a fonte MICRO SISTEMAS e o 
cursor no canto esquerdo do video. Na*o 
vacile agora e teste o comando B como 



primeira providencia, pois nao queremos 
que o micro perca o rumo de casa, 

Retorne ao MICRO BUG e vamos en- 
tao ao comando M. Digite M e, como o 
sistema deve estar apontando para a 
ROM, vamos digitar um endereco qual- 
quer (na falta de um melhor serve 
4082). O resultado deve ser instantaneo, 
caso contrano deve ex 'stir erro em 
algum lugar. 

Teste a "tecla K(+). Pressione-a por al- 
gum tempo e espere a tela ficar cheia. 
Agora pressione J(-) e veja o resultado. 
Vamos fazer outro teste: digite SHIFT S 
e retorne ao teste das teclas KeJ. Veja 
a diferenca, pois SHIFT S chaveia a ve- 
locidade de impressed (se pressionada 
novamente, retorna a velocidade lenta). 
Digite agora SHIFT 3 e o conteudo dos 
bytes sera" "apresentado como um valor 
decimal (SHIFT 3 retorna a condicao 
inicial). SHIFT E faz a mesma coisa, 
porem com o endereco. 



Listagem 7 — Comando B 



7942 ID 79 



791D CO C7 78 

7920 26 38 2E 

Mi 

792A Ei 
7925 C9 



def 


791 D 


CALl 


7&C7 


POP 


HL 


RET 





comando B 



? tmpr ime sew scro'J 1 
j ASIC 

jl impa STACK 

? retorna ao Basic 




Establllzador EJstrtnteo 

mini 



Protecao ultra-rip Ida contra variacoes 
da tensio da rede em at£ ± 22% 
estabilizando-a em + 1%. 
Capacidade de 
0.25, 0.4. 0.6. 0.8 
• 1 KVA. 




Gerador EJetrtnlco 

GERATRON 

Quando a rede eletrica faltar. GERATRON 
contlnuara ellmentando o seu micro como se nada 
houvesse acontecido. ^*~mmmae8&Mi%L 

Capacida de 200 VAJ^B^TotT* ' '>.''' '■ ';■ .'■ *V. 



continuamente 

6 500 VA de ptco. 

Bateria interna 

com autonomia 

de 90 mi nut os 

■ plena carga. 

R. Dr. Gamier, 579 - CEf? 20971 




■ Rocha -Tela.: PABX (021) 261-6458 
Representante Sao Paulo 



IHHLM 

Unha Especial pan Micros 

Protecao CO m pie t a para seu micro, 
mantendo a alimentacao altamente 
estavel e aem interrupcio. Forma da 
oncja senoidal. Capacidades de 0.25, 0.4 
0.6, 1 , 1.5, 2.5, 3.5 e 5 KVA. Opera com 
quatro bate ri as comuns de 12 volts. 



GUARDIAN 

EQUIP. ELETRON. LTDA. 

-Tel.. (011)270-3175 • Rapresentantes em todas as capitals. 





O COMANDO M E AS PRINCIPAIS . . . 



Como j£ vimos, os conteudos podem 
ser modificadoSj bastando que o usuario 
digjte um digito hexadecimal. Essa con- 
difao pode ser alterada por SHIFT D, o 
que faz o sistema aceitar um valor deci- 
mal. A entrada em decimal, por outro 
lado, requer a tecla ENTER para validar 
asmodificacoes. 

Na realidade, o MICRO BUG funcio- 
na com mimeros tanto em decimal quan- 
to em hexadecimal. A sua condi$ao nor- 
mal e, de preferencia, em hexadecimal, 
por serem numeros de facil manipulacao . 
No entanto, se o usuario desejar intro- 
duzir um endereco em decimal, basta 
anteceder o valor pelo especificador $ 
(dessemodo, 4082 em hexadecimal equi- 
vale a $16514 em decimal). Essa condi- 
520 tambem podera ser alterada, mas 
isso sera visto mais adiante. Vale relem- 
brar que a partir de agora usaremos o 
proprio SGM para as novas implemen- 
tac5es. 



Este projeto vem sendo desenvoivido pela equi- 
pe do CPD de MICRO SISTEMAS, sob a coor- 
denapao de Renaio DegiovanL 



Listagem 8 — Coimndo M 



7953 7B 7B 



7B4B 

7B53 

7B5B 

7B63 

7B6B 

7B73 

7B7B 

7BB3 

7BBB 

7B93 

7B9B 

7BA3 

7 BAB 

7BB3 

7BBB 

7BC3 

7BCB 

7BD3 

7BDB 

7BE3 

7bi:::b 

7BF3 



def 7B7B 



2 A 

60 

79 

4F 
79 

A7 
AF 
CD 
CD 
73 
iC 
2F 
OB 
CB 
73 
32 
33 
10 
CD 
52 
2A 
7 A 



2D 

78 

CB 

AF 

2B 

ED 

07 

?£ 

AG 

B7 

38 

CO 

1.5 

77 

DA 

7B 

F9 

FD 

AA 

7 A 

OF 

7B 



79 
CD 
46 

47 
22 
42 
CD 
7A 
78 
08 
F3 
69 
CD 
20 
10 
40 
FF 
36 
73 
1 
40 
18 



02 
20 
03 
2D 
CD 
52 

e:b 

CD 
FF 
FE 
7B 
F5 
29 
A 7 
CD 
20 
7B 
1 3 
0B 
11 
EQ 



22 

7B 

03 

98 

79 

79 

7 A 

2B 

4B 

30 

2C 

18 

03 

F 1 

17 

D3 

30 

2 A 

AF 

15 

00 



2D 
7E 
C3 
8 A 

01 

78 

B7 

22 

7B 

23 

38 

F8 

3 A 

07 

17 

78 

F5 

2D 

Fl 

CD 

00 



79 
21 
3E 
2 A 
15 
18 
28 
2D 
CD 
F4 
87 
F5 
26 
CD 
17 
FF 
07 
79 
D7 
F5 
CD 



CD 
26 
78 
2D 
00 
DA 
08 
79 
D3 
FE 
FE 
01 
79 
A A 
17 
IC 
D6 
77 
CD 
08 
DD 



$ com an do M 



gg . 






ATENQAO LOJAS E REFRESENBINTES 



Novas lojas surgem em todas as partes do 
pais, enquanto as ja existentes ampliam seus 
negbcios e diversificam suas linhas de produtos 
e servicos. Elas sao o termometro deste incrivel 
mercado. 

Para acompanhar esse acelerado crescimento 
a nivel nacional, NICRO SISTEMAS esta precisando 
do auxilio destas empresas, mediante o 
fornecimento de informacoes basicas sobre suas 
atividades. 

Fortanto, se voce e Diretor ou Qerente de uma 
Loja, ou Revendedor de sistemas ou suprimentos 
de microcomputadores, mantenha o nome de 
sua empresa presente e atualizado em nosso 
cadastro de informacoes, mandando-nos os 



seguintes dados: 

» Razao Social 

• CQC 

• Endereco e Telefone 

• Produtos que comercializa (hardware, software, 
publicacoes, moveis etc) 

• Nome dps Diretores/Gerentes 

• Um breve historico da firma 

E quaisquer informacoes quejulgar 
importantes, 

Estes dados vao nos ajudar a fazer uma 
cobertura mais completa do mercado brasileiro 
de microinformatica, aumentando sua divulgacao 
e, eventualmente> transformando em notfcia o 
nome de sua empresa. 



Redasao de MICRO SISTEMAS 
Av. Presidente Wilson, 165/grupo 1210^ Cehtro, Rio de Janeiro, RJ, CEP 20030 

Tels.: (021) 262-5259 



mmmm 



mmmge 



30LUCA0 NAO E PRQBLEMA $ 



nao importa o tamanho de seu problema, 
no's temos a solucao na medida exata ! 




LINGUAGEM BASIC 
16 K DEMEMORIA 
VELOCIDADE DE 
TRANSFERENCE 14VE- 
ZESMAISRAPIDA 



CP-300 



MODULAR 
LINGUAGEM BASIC 
48 K DEMEMORIA 
COMPATfVEL COM 
SOFTWARE DO CP 500 




LINGUAGEM BASIC 
48 K DEMEMORIA 
ATE 4 DRIVES 
SAID A PARALELA SE- 
RIAL 



• VELOCIDADE 100 CPS 

• M AT R 129x7 

• INTERFACE: 
PARALELA 
SERIAL 




MICRO: 

• LINGUAGENS COBOL. 
BASIC E FORTRAN 

• 64 K DEMEMORIA 

• DUAS UNIDADES DE 
DISCO 



IMPRESSORA: 

• VELOCIDADE 130 CPS 

• MATRIZ7x9 

• 132COLUNAS 

• ORIGINAL +5 COPIAS 



VELOCIDADE 200 CPS 
MATRIZ 7x9 
INTERFACE: 
PARALELA, 
SERIAL 



• 8PENAS 

• Area de traqado 

10 x 15 POL. 

• INTERFACE RS-232 




ACESSORIOS 

SOFTWARE • MESAS • DIS- 
QUETES • ARQUIVOS • 
FORMULARIOS CONTI- 

NUOS»ESTABILIZADORES 
DE TENSAO • UNIDADES 
DE DISCO FLEXlVEL • ETC. 



PROMOpOES ESPECIAIS • 
FINANCIAMENTO • LEA- 
SING •CONSORCIO «CAR 
TOES DE CREDITO: CREDI- 
CARD, NACIONAL, ELLO. 



filcres 



Filcres Importacao e Representatives Ltda. 

Rua Aurora, 165 - CEP 01209 - Sao Paulo - SP 

Talax 1131298 FILG BR - PBX 223-7388 - Ramais 2,4, 

12, 18, 19 - Diretos: 223-1446, 222-3458, 220-5794 e 

220-9113- Raembolso - Ramal 17 Direto: 222-0016 -220-7718 



Neste artigo, iremos aumentar o vocabuiario do compilador FORTH pubiicado em MS 22, 
inclusive criando comandos bastante uteis para a programacao de jogos 






Outras palavras em 
FORTH 



f 

in 

te 1 

i 

p i 
re 

si 



Ivan Camilo da Cruz 



Em MICRO SISTEMAS numero 22, foi apresentado 
um compilador para a linguagem FORTH de autoria 
de Antonio Costa. Este artigo introduziu aos leitores 
desta revista esta fant&tica linguagem, que consegue 
ser ao mesmo tempo simples, compacta, rapida e poderosa. 
A linguagem FORTH e muito flexivel. Com ela, ao contra- 
rio das outras linguagens, n6s podemos definir novos coman- 
dos a partir dos ja existentes, ou entSo diretamente em lingua- 
gem de maquina. Neste artigo, desenvolveremos novos coman- 
dos extremamente uteis, inclusive um que permite salvar o 
compilador FORTH em disco. Mas, atenca~o!!! Todas as pala- 
vras aqui propostas devem ser criadas usando base 16. Para 
passar para a base 16, utilize o comando HEX definido no 
artigo pubiicado no mimero 22. 

A possibilidade de incluir novos comandos, entretanto, cria 
uma dificuldade: e necessaiio lembrar quais as palavras que ]&. 
foram definidas em nosso FORTH. Por isso, alguns FORTHs 
trazem em seu vocabulano a palavra VLIST ou outra similar, a 
qual serve para listar o vocabuiario. (E possivel implementar 
VLIST neste compilador, e e' o que faremos mais adiante). 
Uma palavra FORTH, na versa*o que foi apresentada em 
MICRO SISTEMAS, fica armazenada na memoria da seguinte 
forma: 

• 1 byte com o mimero de letras da palavra; 

• a palavra; 

• 2 bytes com um link com a palavra anterior; 

• 2<bytes com o enBere^o do codigo de maquina associado a 
ela: 



04 


Humero de letras da palavra 


"ENQ," 


A palavra 


65 £1 


Link, com a palavra 




anterior (FTOKEN) 


0A 5E 


Endereco da rotina em linguageu 




de maquina associada com esta 




palavra. 


tfcl aJ 


Endereco da palavra "," 


2F 66 


Endereco da palavra "KERE" 


E8 62 


Endereco da palavra "-" 


OS 6B 


Endereco da palavra "C," 


F2 50 


Endereco da rotina de retorno. 



parametros (dados ou endereijos de outras palavras). 
Vamos usar como exemplo a palavra END,: 

ENDERECO C0NTEUDO ~ EOHENTARIOS 



£177 
6178 
617C 

617E 



£180 
6182 
6184 
6186 
£188 

Note que todos os enderecos esta"o na ordem LSB-MSB (by- 
te menos significativo — byte mais significativo). A primeira 
palavra tern link = para indicar o inicio do vocabuiario. Co- 
mo podemos ver, para listar o vocabulano FORTH n6s deve- 
mos comecar pelo fim e terminar no inicio. 

Assim sendo, para listar o diciona'rio bastaria criar uma pa- 
lavra que tirasse o endere$o da pilha, listasse a palavra associa- 
da a ele e em seguida colocasse na pilha o link desta palavra 
com a anterior, repetindo a execucSo desta palavra ate que o 
link encontrado fosse zero. Porem, na"o basta somente isso... 

Nesta versao do FORTH existem dois vocabularios. Alem 
do vocabuiario comum, existe um outro, que se chama voca- 
buiario de compila9ao. O vocabuiario de compila^o tern a 
mesma estrutura do vocabuiario comum, com apenas uma dife- 
renca: o endereco de sua ultima palavra 6 dado por COMPI- 
LER® , enquanto que o endereco da ultima palavra do voca- 
buiario comum e obtido pela palavra ENTRY. 



62 
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VAMOS A IMPLEMENTACAO 



A palavra que lista uma linica palavra sera" escrita em lin- 
guagem de maquina para aproveitar uma sub-rotina que esta 
incluida no compilador. Esta rotina comeca em SE47H e 
termina em 5E50H, e sua funcfro e listar uma string cujo com- 
pnmento esta no registrador E e cujo endereco inicial esta no 
registrador HL. No retorno, HL aponta para a ultima letra da 
string. Eis a nossa palavra escrita em linguagem de maqui-^ 



El 

5E 

23 

CO 47 5E 

E?3 
5E 
£3 
56 
05 
C3 F£ 50 



POP 
LD 

INC 

CALL 

INC 

LD 

INC 

LO 

PUSH 

JP 



HL 
E,(HL> 

HL 

5E47 

HL 

E,(HL> 

HL 

D,(HL) 

DE 

NEXT 



tira enrtereco na puna 

le nutnero de letras da 

palavra 

aponta para o inicio 

eta palavra 

liata a palavra 

aponta para o link 

earrega o link no par 

de registradores 

OE. 

coloca link na pilha 

retorna 



Para implementar esta mesma palavra em FORTH, digite: 

™" TE "STA-PALAvRA El C, 5E C, 23 C, CD C, 5E47 , 
23 C, 5E C, 23 C, 56 C, D5 C, NEXT 

Muita atencao, pois pelo menos urn espaco deve ser coloca- 
do entre cada simbolo da linguagem (numeros ou palavras). A 
palavra NEXT encarrega-se de eolocar os bytes C3 FE 5D 

Agora precisamos implementar uma palavra que liste urn 
dos vocabulanos completamente. Ela ira buscar na pilha o 
endereco da ultima palavra do vocabulario. Para implementi- 
la, digite: 

: LISTA-VOC 
8ECIN 

LISTA-PALAVRA 

ASPACE DUP EMIT EMIT 

UUP 0= 
UNTIL 
ORGP 

Observe que esta palavra usa as palavras BEGIN c UNTIL 
que foram definidas em MICRO SISTEMAS numero 22. Voce' 
devera inclui-las no vocabula"rio antes de definir a palavra 
LISTA-yOC. p 

Finalmente, vamos implementar a palavra VLIST, a qual 
listara os dois vocabulanos: 

: VLIST 

CR ENTRY LISTA-VOC 

CR COMPILER B LISTA-VOC 

CR 



PALAVRAS UTEIS EM JOGOS 



FORTH 6 uma linguagem muito boa para a criaeffo de lo- 
gos. Existem, inclusive, algumas palavras que sffo imprescin- 
diveis para isto, como por exemplo: INKEY (varre o teclado 
sem esperar pelo pressionamento de uma tecla); P@ (le urn 
byte de uma porta); P! (transmite urn byte para uma porta)- 
SET (seta urn ponto na tela); RESET (resseta urn ponto na 
tela); POINT (testa se urn ponto esta setado ou nao). Vamos 
entao, implementar todas estas palavras. 
• INKEY - Faz uma varredura do teclado. Se alguma tecla 
estiver sendo pressionada, o codigo desta sera colocado na pi- 
lha; caso contrario, um zero sera colocado na pilha; 



CD 2B 00 
6F 

26 00 

E5 

C3 FE 5D 



CALL 
LD 

L0 

PUSH 

JP 



002E 
L,A 

H,0 

HL 

NEXT 



varre teclado 

carrega L com o codigo 

da tecla pressionada 

c H com 

coloca na pilha 

returns 
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CARO CONSUMWOR 



Mais barato impossivel. 
E o cliente e quern 
faz o financiamento 



TK2000 

TK85 

Dactron 

CP 500 c/2 Drives 

Intellivision 

Monica 

Drives 

Diskettes 

Jogos p/TK 2000 - a partlr de 

Jogos p/ Intellivision - a partir de 

Placas CPM Progus 

Programas Apllcativos 

Fitas p/ Video Cassete 

Cabo p/lmpressora 

Mesas p/Computador 

Mesas p/lmpressora 



Cr$ 849.850,00 
Cr$ 369.850,00 
Cr$ 1.299.000,00 

Cr$ 3.900.00,00 
Cr$ 240.000,00 
Cr$ 1.390.000,00 
Cr$ 649.850,00 
Cr$ 6.300,00 
Cr$ 9.000,00 
Cr$ 25.000,00 
Cr$ 200.000,00 
Cr$ 20.000,00 
Cr$ 17.500,00 
Cr$ 90.000,00 
varia de acordo 

com o modelo 



Temos diversos Outros produtos com o 
melhor preco do mercado. Os precos sao da 
ORTN do mes de AbriL podendo aumentar 
ou diminuir de acordo com os produtos que 
estarao em promocao da semana. 

Temos Curso de Basic para adultos e 
criancas com aulas teoricas e praticas com 
Micros. 

Diversas turmas e horarios. 

Venha fazer-nos uma visita. 




BRASILTRADE CENTER 

Av, Epitacio Pessoa, 280 (Esq. com Vise, de 
Piraja) (Aberto diariamente ate as 22:00h) 
CEP 22471, tels.: (021) 259-1299, 259-1499 e 259-1542. 
Assembleia, 10 - loja 112 — Centra Empresarial 
Candido Mendes. 
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OUTRAS PALAVRAS EM FORTH 



Em FORTH, 

CREATE INKEY CD C, 2B , 6? C, 26 C, C, E5 C, NEXT 

• P@ — Le um byte da porta cujo numero esta na pilha; o 
byte sera colocado na pilha: 



D9 

CI 

ED 58 

16 00 

D5 

09 

C3 FE 5D 



EXX 

POP 

IH 

LD 

PUSH 

EXX 

JP 



BC 

E,(C> 
0,0 
DE 

NEXT 



; nuMero da porta 
; Is byte 

; coio*p, jt, yte na p ii ha 



Em FORTH, 

CREATE PS D? C, CI C, ED C, 53 C, 16 C, C, D5 C, 09 C, NEXT 

• P! — Transmite um byte para uma porta. O numero da por- 
ta esta no TOS e o byte em 20S. Esta palavra € parti cularmen- 
te util na criacSb de efeitos sonoros: 



o? 
ci 

Dl 

Ed 59 

09 

C3 FE 5D 



EXX 




POP 


BC 


POP 


oir 


OUT 


(C),E 


EXX 




JP 


NEXT 



; porta 

j by to 

: transmits 



Em FORTH, 

CREATE P! B9 C, CI C, Dl C, ED C, 59 C, D9 C, NEXT 

Agora, antes de passarmos para as palavras SET, RESET e 
POINT, vamos criar uma palavra chamada GRAF em Assem- 
bler, que atuar& como uma sub-rotina das outras ties pala- 
vras. Esta palavra foi baseada em uma rotina do interpretador 
BASIC: 



09 




EXX 




salva registradores 


Di 




POP 


DE 


tira coordenada x 


7E 




LD 


A,E 


e coloca cm A 


FE 30 




CP 


30 


>* 48 < decimal)? 


38 16 




— JR 


C,HERE+18 


nao, salta 


21 ?? 


?? 


L0 <-- 


HL,HERE+0B 


sim, imprime mensagem 


IE 0C 




LD ! 


E,0C 


de erro 


CD 47 


5E 


CALL ! 


5E47 




09 




EXX ! 




recupera registradores 


C3 FE 


50 


JP ! 


NEXT 


e retorna. 


46 +F 


52 41 


0EFM ! 


'F0RA DA TELA' 




SO 44 


+ 1 20 








S4 +5 


4C 41 








16 FF 




->LD ! 


D,FF 




14 




->INC ! 





D=quociente da divisao 


06 03 




SOB j 


03 


do cegistrador A par 


30 FB 




— JR ! 


NC,HERE-5 


tres 


C6 03 




ADO ! 


03 




+F 




LD ! 


C,A 


C=resto 


El 




POP ! 


HL 


retira coordenada y 


70 




LD ! 


A,L 


e coloca em A 


FE 80 




CP ! 


80 


>= 128 (decimal )? 


30 DB 




JR 


NC,HERE-28 


siw, volta e impritne 
mensagem de erro 


87 




ADO 


A 


nao, multipl. por 2 


5F 




LD 


E,A 


e coloca em E 


06 02 




L0 


e,02 




7A 




->LD 


A,D 


move e E duas veses 


IF 




RRA 




para a direita assim a 


57 




LD 


D,A 


Mt 1 de E vai para a 


76 




LD 


A,E 


flag CARRY e o par DE 


IF 




RRA 




aponta para o carac. 


5F 




L0 


E,A 


grafico que contem o 


10 F8 




— DJNZ 


HERE-08 


ponto. 


79 




LD 


A f C 


Calcula a posicao do 


8F 




ADC 


A 


ponto dentro do carac. 


3C 




INC 


A 


grafico usando a for- 
mula < 8*C Hl+CARRY 


47 




LD 


8, A 


coloca a posicao dc 
ponto em B 


AF 




X0R 


„ A 


cria uma mascara com 


37 nc 




SCF 




o registrador A setan- 


8F 




->A0C 


A 


do o bit apontado pelo 
valor de B e resetando 
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CREATE GRAF 09 C, Dl C, 76 C, FE C, 30 C, 3B C, 18 C, 

21 C, HERE 8 + , IE C, 0C C, CO C, 5E47 , D9 C, C3 C, 5DFE , 

46 C, 4F C, S2 C, 41 C, 20 C, 44 C, 41 C, 20 C, 

54 C, 45 C, 4C C, 41 C, 16 C, FF C, 14' C, 06 C, 03 C, 30 C, 

F8 C, C6 C, 03 C, 4F C, El C, 7D C, FE C, 80 C, 30 C, 08 C, 

87 C, 5F C, 06 C, 02 C, 7A C, IF C, 57 C, 7B C, IF C, 5F C, 

10 C, F8 C, 79 C, 8F C, 3C C, 47 C, AF C, 37 C, 8F C, 10 C, 

FD C, 4F C, 7A C, F6 C, 3C C, 57 C, 1A C, 87 C, FA C, 

HERE 4 + , 3E C, 80 C, 47 C, Fl C, E7 C, 78 C, 28 C, 11 C, 12 C, 

FA C, HERE C + , 79 C, SF C, 4F C, 1A C, Al C, 12 C, D9 C, C3 C, 

5DFE , Bl C, 18 C, F8 C, Al C, 21 C, , 28 C, 01 C, SC C, 

E5 C, 18 C, EF C, 

Como esta rotina e longa, eu aconselho o leitor a digitd-la 
aos poucos, no maximo 20 bytes de cada vez a medida que a 
confere, pois a possibilidade de erros e maior. 

• SET — Seta um ponto na tela cujas coordenadas X e Y sffo 
respectivamente o 20S e o TOS: 

: SET 8000 ROT ROT GRAF ; 

• RESET — Resseta um ponto e e similar a anterior quanto 
as coordenadas do ponto: 

: RESET 100 ROT ROT GRAF ; 

• POENT — Testa se um ponto esta" setado ou na"o. Se esti- 
ver, devolve 1 na pilha; caso contrano, devolve 0: 

: POINT ROT ROT GRAF ; 



SALVANDQ EM PISCO 

Finalmente, vamos apresentar uma palavra que permite 
executar comandos de disco em FORTH. Esta palavra podera" 
ser usada com o sistema operacional NEWDOS/80 ou DIG- 
DOS100. Ela usa duas rotinas do sistema operacional. A 
primeira 6 a rotina que executa um comando do NEWDOS e a 
outra € a que- mostra uma mensagem de erro. 

Inicialmente, vamos implementar uma rotina em Hnguagem 
de mdquina que apanha o endereco do comando na pilha e o 
executa, imprimindo eventuais mensagens de erro que possam 
ocorrer durante a execugaTo do comando: 
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^ 




10 FD 




0JNZ 


HERE-Oi 


; os outros bits. 


E 


4F 




LD 


C,A 


; salva a mascara em C 


Ci 


7A 




L0 


A,D 


; DE aponta para o cara- 


2 


F6 3C 




OR 


3C 


; ctere da tela onde es- 


F 


57 




L0 


D,A 


i ta' o ponto. 


1A 




LD 


A,<DE) 


• carrega o carac. e« A 


C 


87 




OR 


A 


; e' caractere grafico? 


FA ?? 


?? 


JP 


M,HERE+4 


; sim, salta 


** 


3E 80 




! LD 


A,80 


; nao, Mas agora e' 


■" 


47 




~>LD 


8, A 


; salva caractere eu D 


Fl 




POP 


AF 


; tira flag da pilha 




B7 




OR 


A 


; testa 




78 




LD 


A, e 


j recupera caractere 




28 11 




JR 


Z,HERE+11 


; flag=0? sim, pula 




12 




L0 


<DE),A ! 


; recoloca car. na tela 




FA ?? 


?? — 


JP 


N,HERE+0C ! 


; flag=80? sim, pula 




79 


j 


LD 


A,C ! 


; coloca mascara em A 


P 


2F 






CPL 




; complementa 




4F 






LD 


C,A i 


f recoloca em C 




1A 






LD 


A.CBE) t 


; coloca caractere gra- 
; fico em A 




Al 






AND 


C i 


; reseta o ponto 




12 






L0 < — 


(DE),A j 


; recoloca o caractere 




D9 






>EXX ! 




; recupera registradores 




C3 FE 


50 




JP ! 


NEXT ! 


5 e retorna *., 




Bl 


— 


>0R ! 


C ! 


; seta o ponto 




18 F8 




JR — 


HERE-08 ! 


; volta 


J 


Al 




AND 


C < 


; testa o ponto. 


21 00 


00 


LD 


HL.OO0O 


; flag de retorno da 
5 palavra POINT 


r: 


28 01 




JR 


Z,HERE+1 


i ponto esta' resetado? 


p 


2C 




j INC 


L 


; nao, L=01 




E5 




~>P0SH 


HL 


f coloca na pilha 




18 EF 






HERE- 11 


; volta 


e 




1 

2 


Em FORTH 


J 







El 


•POP 


HL 


retira endereco do co- ' 
mando. 


CD 1? « 


CALL 


4+19 


execgta 


28 05 


JR 


Z,05 


salta se nao ouve erro 


Fi 80 


OR 


80 


seta bit wais signifi- 
cative de A 


CD 0? 44 


CALL 


440? 


inpritte wens, de erro 


C3 FE 5D 


JP 


NEXT 


retorna 



lmplementado em FORTH, 

CREATE CMD-DOS El C, CO C, 441? , EB C, 05 C, Fi C, 80 C, 
CO C, 4409 , NEXT ' 

Feito isso, vamos enta"o implementar uma palavra que pre- 
para o comando para ser usado por CMD-DOS: 

t CMD" 

SS TOKEN 

HERE OOP OUP 

CO + 1+ OD SWAP C! 

1+ CR CMD-DOS 
t 

Note que esta palavra deve ser criada na base hexadecimal. 
Para utilizd-la, digite CMD" comando-dos". Por exemplo: pa- 
ra obter o diretorio, digite CMD" DIR" (o espaco colocado de- 
pois das aspas e" obrigat6rio). 

N6s podemos usar este comando para salvar o compilador 
em disco. Para fazer isso, use a seguinte sequencia: 

1 - carregue o NEWDOS; 

2 - passe para o BASIC e carregue o FORTH da fita usando o 
comando SYSTEM; 

3 - inclua as palavras CMD-DOS e CMD"; 

4 - digite DECIMAL HERE, (isto imprimira o endereco do 
final do compilador); 

5 - digite o comando CMD" DUMP FORTH/CMD,24001 , 
nnnnn,24145" onde nnnnii 6 o mimero devolvido pelo item 
4 da sequencia. 

Isto salvara' o compilador em disco. Use esta sequencia a 
partir do item 4 sempre que quiser salvar as modificacoes feitas 
no compilador. Os itens 4 e 5 deverSo ser usados sem base 
decimal. Feito isso, para carregar o FORTH em disco bastard 
digitar o seu nome e o sistema operational se encarregard do 
resto. Urn cuidado apenas: nem todos os comandos de disco 
podem ser usados pelo FORTH, uma vez que alguns deles 
ocupam a area de memoria onde o FORTH se encontra. 

Para terminar, urn ultimo lembrete: se voce pretende criar 
palavras em Assembler, atencSb para na~o destruir o conteudo 
dos registradores BC, DC e IY, pois eles tern funcOes especi- 
ficas dentro do compilador. 
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liliHO 

nEim 

Microcomputadores com credito direto ou leasing 



TK-2000 CrS 849.850, 

TK-85 Cr$ 369.850, 

CP-200 Cr$ 369.000, 

DGT-1000 Cr$ 1.498.000, 

CP-500 Cr$ 1.990.000, 

APPLE II PLUS Cr$ 1.590.000, 

GRATIS! 

UM CURSO DE BASIC 

ENTREGA RAPIDA EM TODO BRASIL 



Aplicativos: controle de estoque: contabrlidade: folha de 
pagamento; contas a receber pagar; mala direta; cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 



Temos toda linha de perifericos e suprimentos para acom- 
pantiar o crescimento de sua empresa. 



VISITE-NOS 0U S0LICITE UM REPRESENTANTE 



MtCRONEWS COMfeRCIO E SERV1QOS LTDA. 

R. Assembleia 10 Gr. 3317 - Ed. Centro Candido Mendes 

Tel.; (0211252 9420 CEP20011/RJ. 



SEJA NOSSO COLABORADOR 

E ENTRE PARA A HISTORIA. . . 

..d& MICRO SISTEAAAS, 6claro! 



Como? E- simples: 

• Se vocd desenvolve u um 
programa interessante, escreva 
um texto datilografado explr- 
cando quai a sua utilizaca~o e 
junte exemplos de apficacao. 
Aten9cfo: 6 imprescindi'vel que 
a listagem seja datilografada. 
Se for p oss I've I mande tam- 
Mm, junto com a listagem 
datilografada, uma fita cassete 
ou disquete com o programa. 

• Se for artigo, use tambeYn 
a maquina de escrever e, caso 
haja necessidade de desenhose 
ilustracoes, detalhe-os o mi- 
ximo possfvel. 



• Releia atentamente sua co- 
laboraca"o para micros ou cal- 
culadora, veja se na'o falta ne- 
nhuma informaca"o (qua) equi- 
pamento,em que configuracao 
etc.) e remeta-a, em duas vias, 
para a equipe de MICRO SfS- 
TEMAS analisar. 

• Se aprovado, seu artigo ou 
programa sera publicado em 
data a ser conftrmada na e"po- 
ca. Todo material veiculado 4 
remunerado. Caso nao seja 
aprovado, vocd receberd seu 
material de volta. 

o Nao se esqueca de mandar 
um breve currfculo, seu nome, 
telefone e endereco complete 




Envie para REDACAO/MICRO SISTEMAS, Rio ou Sao 
Paulo: Av. Presidente Wilson, 165/9rupo 1210, Centro, CEP 
20030, Rio de Janeiro, RJ; Rua Oliveira Dias, 153, Jardim 
B aulista, CEP 01433, Sao Paulo, SP. 



i u 



Esco/ha a figura, de as medietas e espere... Com este programa, seu micro 
TRS-80 1 ou /// calcularaa area para voce 



Em geometria, 
a area e do micro 




Heber Jorge da Silva 



Cdlculos de areas £ um programa 
que roda em qualquer micro 
compatfvel com o TRS-80 mode- 
los I e III com 16 Kb de RAM e 
destina-se a calcular a area de 20 figuras 



geome'tricas diferentes, das mais simples 
as mais complexas. 

Logo em seguida a apresenta9ao do 
programa, o usuario recebera na tela um 
menu com as opcoes correspondents as 
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** MENU ** 
CAL.CUL0S DE AREAS 



Quadrado n 

Retangulo 12 

Paral elogramo 13 

Triangulo Retangulo 14 

Triangulo Acutangulo 15 

Triangulo Obtusangulo 16 

Trapez i o 17 

TrapeHo i de 18 

Triangulo Eguilatero 19 

Pentagono 20 
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Heptagono 

Oct ongono 

V. i r c u 1 o 

Coroa Circular 

Setor C i rcuiar 

Segu i men to Circular 

Setor Coroa Circular 

El i pse 

Parabol a 



M 



20 figuras a serem calculadas (figura 1). 
Escofiiendo uma, o computador plotara" 
no video a figura requisitada, soKcitan- 
do ao usuaYio entrar com as medidas ne- 
cessirias aos calculos. Ao informa-las, 
deve-se ter o cuidado de usar sempre a 
mesma unidade de medida, pois o pro- 
grama nao faz conversoes. 

Observafoes: as impressoras costu- 
mam imprimir de forma diferente o ca- 
reer de exppnenciacao. Os mais utiliza- 
dos sao: 6, A,Q e + . Em nossa listagem 
esta operacao equivale ao cardterQ. Por- 
tanto, durante a digitacao, substitua-o 
adequadamente. 



Formado em Administ'ra$ao de Empresas pela 
UDF, Heber Jorge da Silva trabaiha atualmen- 
te na Telebrasflia, onde exerce attvidades liga- 
das d programagao de microcomputadores. 



MICRO SISTEMAS, maio/84 



I 
Cl 



MICRO 



Cdlculos de Areas 



5 

10 

15 

16 

20 

25 

30 



CALXULOS DE A 

!PRtNTTAB<14>" 

**"5PRINTSPR 



Relrangulo 



'*** CALCULO DE AREAS *«* 

'*** POR HEBER JORGE DA SILVA *** 
'*** BRASILIA - DF 03/83 *** 

*************** »**»*********»»**»*»#«««*«. 
REM ***** MENU PRINCXPAI 
0L5sPRINT«fl454,CHR<B<23) ? "** 
REAS **"sF0RD="lT0i 500 = NEXT 
40 CLSiPRINTTAB<27)"»* MENU **- 
** CALCULOS DE AREAS 
INT 

SO PRINTTAB<10>"1 - Quadrado 
1 - He;<agono":PRINTTAB<iD) / '2 - 

12 - Heptagorio":PRINTTAB(lG>''3 - Pa 
ralelogramo 13 _ Oeto^ono" 

60 PRINTTAB<10>"4 - Triangulo Retangulo 1 
4 - Circulo" S PRINTTABC10>"5 - Triangula Acuta 
ngulo id - Coroa C j rcul ar"! PR INTTAB ( 10>"6 
- Trianaulo Obt usangulo 16 ■■■■ Setor Circular 

70 PRINTTAB<iO)"7~ Trapezlo i 

7 ~ Segmento Circular" 

00 PRINTTABC10>"0 ■■■■ Trapezoid* i 

8 Setor Coroa C i rcular": PR1N TTAB ( 10)"9 - Tr 
jangulo E^uilafcBro 19 - El ipse-iPRlNTTAB (9 
> 10 - Pentagono 20 _ Pa|r , bnl: .„ 
90 PRINT: INPUT" S FL E 

C I N E "jA«IFA<10RA>2DTHEN90 
100 G0SUBi660:0NAG0T0110 7 2?0,45Q 520 610 630 

A0?890 9?0°' 72D,730 ' 740,730 ' 760 * 7 ^ "' Sl °^ 30 '® 
110 Q0SUB930aG0SUB960 

120 0NQG0T0130, 190,240 

i?? ft EhBo^n INT3A4 '" CALC:UL0 DA ARt:A D0 Ql'ADRADO 
■GOSUB95U 

140 F0RX=i-rt)43:F0RY=iiT029»SET<X Y):NFXTY X 
150 PRINTa>704,"»: INPUT"! - atrav^ da diij™ 
^60 ONAOO^i^OO ^i""' A= *™< *™ A >^HEN150 

170 60SU&i510!G0SUBi400sV=.5*<Dr?) SG0T01600 
tiOSUBi510sDOSUB990:V=LC2sGOT01600 

.rkf.'.B™ T0A4 '" CALCUL0 D0S Lm0S D0 QUADRA 
■bOSUB950 

^ PRINT07Q4,"":INPUT"1 - Atraves da area 

2io"oSLs;?s;?s%?i a9ona, '' !LsiFL<iaRL>aTHEN200 
RA 4 D , o^r!^s B l 9 N ;r ,4 '" cAu;uLo Drt Dr ~ ~ ™ 

250 PRINT0704,-.INPUT-i - Atraves da area 

* - Atraves do lado"-Ds IFD< 10RD>2THENPSD 
260 ONDGOT0270,280 
270 O0SUei5iO:GOSUB139d:y=SQR<A)Kl.4i4sG0TO16 

280 G0SUB1510sG0SUB990:V=i 
290 G05UBi000:G0SUB96G 
300 ONQGOT0310, 400,430 

Lj-.Goli";™" 1213 '"" ' LCUL ° DA flk " D ° " ETflNBIJ 



180 
190 
DO"; 
200 



.414«L=G0T01600 



320 F0RX=iT0S9sF0RY«i7T029tSET(X,Y>sNEXTY X 
330 PRINTa7Q4,"":iNPUT"ATRAV£3 DE: l - diagon 
al+lado ma i or 2 - d i agonal +lado men or 

a, ti-a, < ~„^ .„-r 3 ~ lado ma i or + 1 ado «i(?nnr" 
jA=IFA<10RA>3THEN330 
340 ONAG0T035O,370,390 

350 G0SIJB j 510 2G0SUB 1520 :G0SUB140O sGOSUB 1450 si 

PL2=>DTHENG0SUB970:G0T0350 

360 V«L2*saR(<DC2)-(L2C2>>sGOT0i60D 

370 G0SUB 1 510 : G0SUB 1520 sGOSUB 1400 sGOSUB 1440: I 

FLl=>DTHENGOSUB970sGOT0370 

380 W-Li*S«R(<DC2)-<LiC2)> 5G0T01600 

390 GOSUB 1510 :G0SUB 1520: GOSUB 1410 sG0SUB1420sY 
=M»N:G0T0i600 

400 CLSIPRINTSU28, "CALCULO" DOS LADOS DO RETAN 

GUL0"tG0SUB1000 

410 PRINT!D704,"":G0SUB140OKlNPUT"FntrF com urn 

dos Jados" ? 0:IFD<=0THENG0SUB970:G0T04i0 
420 y=SQR < <DC2)~<0C2> ) SGOT01600 
430 CLSnPRINTdiHS, "CALCULO DA DIAGONAL DO RFT 
ANGULO" sGOSUB 1000 

440 PRIN'ni)7G4,""sG0SUB14iO:GOSUB1420!V*SOR<<M 

C2) + <Ni;2>):G0T016GO 

450 GOSUB 1010 sGOSUB 1020 

460 ONQGOI'0470,490 

470 CLSsPR.tNT<i)128, "CALCULO DA AREA DO PARAl El 

■S^r aG ° SUBiO1OBA!!Sl!B=60!!Y=17sF0RD =iT013 S "6O 

SUB 1 670 : A^ A+ i : B«B + 1 ■ Y= Y+ i a NFXT 

480 PRINT3704 f ""aiNPUT"Entre com os valorem d 

ok lados"pM,N:V»M*Ns GOTO i 600 

490 CLS:PRINT3i2B, "CALCULO DOS LADOS DO PARAl 

EL0GRAM0"sG0SUB10i0 

300 PR INTB704,"" SGOSUB 1390 !GOSUBi4iO:lFA<«MTH 
ENGOSUB970BGOT0500 

510 U=A/M:GOT01600 

520 GOSUB1030:PRINT07G4,"0 QUE QUER CAI CULAR 

?"«PRINTaPRINT"l - Area 2 - Cateto' 3 

- Htpotenusa' / sPRiNTsXNPUT' / ESCOLHA 
"pQ:iFa<10RQ>3THEN5SO 
530 0N0.G0T0540, 560,590 
5 J°CL;S!PRINTa0 r "CALCUL0 DA AREA DO TRIANGULO 

RET ANGULO" sGOSUB 1030 s Yl=5sF0RX=i5T040i FOR Y=Y 
lT030:SET<X r Y):NFXT:Yi~Yl+l:NFXT 
550 PRINT3704,~":lNPUT"Entre com os dois cate 
fco5" ? M,N:g=:(M*N>/2sG0T0i&G0 

CLS:PRINT80, "CALCULO DF CATETOS DO TRIANG 
RETANGULO":GOSUB1030 

.?SinI^ 04 '"'' !INPlJT " Entre COB a hipotenu.a 
■ INPUT Entre com urn dos catetos" -Os IFH<=0T 

HENG0SUB970:G0T0570 

580 0=SQR(<Hr2)~<0C2))SG0T0i600 

590 CLSsPRINTSO, "CALCULO DA HIPOTENUSA DO TR I 

ANGULO RETANGULO" sGOSUB 1030 

600 PRINT0704,""=INPUT"En1:re com os dois cate 

tos" f M,N:V=:S0R<(Mr2)-*CNr:2)):G0T0i600 

r. t ,? A EH r ^L^ i2S '" CALCUL0 DA AREA D0 TRIANGULO A 
CUTANGULO" : OOSUB 1 040 

620 G0SUB98QSV-BHH/2SB0T0160O 

™^ INTS)ia8 '" CALCUL0 DA AREA DO TRIANGULO 
BTUSANGULO" SGOSUB 1050 



560 
ULO 
570 
'fH 




d 




CENTRALDATA 

Cu t Itirtitimut liii 



SUPRIMEIMTO E COISA SERIA 

" Matentia o seu computador hem alimenlado adquirindo produtos de qualidade consagrada. 



Discos Magnfilicos: 5 Mb. 16 Mb, 80 Mb etc 
DISKETTES: 5 1/4 e 8" • marca VERBATIM 
ETIQUETAS PIMACO - PIMATAB 



IM.JA!liAlJJ:IAMMI:tJrf*J.tmJJWj|,|, (l |^ t Hi a ,,,j j j t8i , : w J 



• FitaMagnfitica:600,1200e2400Ws 

• Fita CARBOFITAS p/lmpressoras: Globus M 200 — 8 300/600 

• Fits p/ Impressoras: Elebra, Elgin, Epson, Digllab, Diablo etc 

• Cartuctio Cobra 400 

• Pastas e FormuliriosContinuos. 
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EM GEOMETRIA, A AREA E" DO MICRO 
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00 TRAPEZlb"BG 



640 G0SUB980sV=B*H/2!GOT016OD 

650 PRINTo)i28,"CALCULO DA AREA 

0SUB1060 

660 PRINT3704, — bG0SUB1430b60SUB 1450 SGOSUR 144 

: v^H* ( L2+L 1)72: GOTOl 600 

670 PR1'NT812G,"CALCUL0 DA AREA DO TRAPE70IDE" 

BG0SUB1070 

680 PRINTS)704 F "";:INPUT"Entre com a altura mo 

nor (h>";HisiNPUT"Entre com a altura ma i or (H 

)"=H? : INPUT "E!nt it* .mm » hasi» < A ) " • L : INPUT"Fnt 

re com a base <B >"-B = INPU^'Entr re com a basp < 

690 V»<<Hl-*-H2J*L+B*Hi+CttH2>/2:a0SUBi5J0:G0SUB 
1520 bGOSUB 1540= PR JNT0640, STRINGS (30, 31 >bG0SU8 
1560b G0SUB 1570 BG0T040 
700 PRINTS)64,"CALCUL0 DA AREA DO TRIANGULO EG 

UILATER0":G0SUB1090 

710 G0SUB990:v , = .433*<Li:2):GOTOi6GO 

720 PRINTS64,"CALCUL0 DA AREA DO PENTAG0N0":G 

OSUR 1100 :G0SUB990:y=l. 720* <Li:2>sG0T0i600 

730 PRINT364,"CALCLJL0 DA AREA DO HEXAG0N0"=GO 

SUBlllG:G0SUB99G:V=2.598*CLi:2>sG0T016G0 

740 PRINT80,"CALCUL0 DA AREA DO HEPTAG0NO":GO 

SUB1120:PR INTS)704,""bG0SUB990! 1^3.634* <LC?):G 
OT01600 

750 PRINTao,"CALCULO DA AREA DO 0CT0G0N0"sG0S 

UBil30»e08UB?90>V*4.8S8*<LC2)BGOTOiAOn 

760 PRINT80,"CALCUL0 DA AREA DO CIRCUL0"iG0SU 

Bl 150 bF0RX=32TO57STEP2s RESET (X, 17 >b NEXT bPOKEP 

+35O,B2spRINT87O4,'"'sG0SUBi6SO(U»3.i4iS9M(RC2 
> :(30T01600 

770 PRINTS)0,"CALCULO DA AREA DA COROA CIRCULA 

R" s G0SUBli50:G0SUBli8OaP0KEP + 4O3,82:;POKEP + 397 

,114 

7B0 P RINT8704 7 "":G0SUB 1460 =GOSUB 1470 

790 IFR1>=R2THENGOSUB970bGOT07BO 

BOO V=3„14i59*<<R2C2>-<Ri[2>):G0T0i6a0 

810 PRINT8220 F "CALCUL0 DA AREA DO SETOR CIRCU 

LAR"!60SUBiai0:P0KEP+2i2,ii4:RESET<30 r 13)8RES 

ET<30 r ai)!X»29BF0RY=>i3TOi6BRESET(X F Y>BX»X-isN 

EXT:X=29sF0RY=>2iT0i8STEP-i«RESET(X r Y)sX«X-iaN 

EXT 

020 RESET(26 F i7):PRINTa333 F "al-Pa"j:G05UBi480: 

G0SUBi650:V=.0087a7#Z»(RC2)iG0T0i-600 

830 PRINTa218,"CALCUL0 DA AREA DO 6EGMENT0 CI 

RCULAR"BG0SUB125O:POKEP+253 F 65:P0KEP+322 76sP 

0KEP+386,70BP0KEP+450 F 65sP0KEPt342,67=F0RX=26 

T045STEP4!SET(X,A)!SET(X F 28)!NEXT!FORX=9T023S 

TEP2:RESET(X,17)bNEXTbP0I<EP + 328,104 

840 F0RY»6T02BSTEP2BSET<4a F Y)frN£XT:SET(7 iD)i 

SET ( 7 , 25 > s SET ( 1 , 7 ) b SET ( 10 T 28 ) : SET < 1 4 , 4 > : BFT ( 

14,3i):RESET<25,B)sRESET<27,10):RESET<29'12>s 

RESET<3i T 14)5RESET<33,i6>:P0KEP+208 114 

850 80SUBi48C)BGOSUBi650siNPUT"Entre com o val 

or do lado (C) "- G SG0SUB1430 !V=.5#(R* C ,01745*R 

*Z)-C»(R-H) ) EG0T01600 

860 PRTNT3)18 F "CALCUL0 DA AREA DO SETOR DE COR 

OA CIRCULAR"BP0KEP+275 F il4:P0KEP+469 82:G0SUB 

1280:PR]:NT3333,"alfa"; 

870 GOSUB 1480: GOSUB 1460 BGOSUB 1470b IFRi>=R2THE 

NG0SUB97OBG0T087O 

880 V=Z*3. 14159/360* <<R2C2>-<Ri[2))sG0T0iA0n 
890 PRINTa4,"CALCIJL0 DA AREA DA ELIPSF":GOSUB 

1340 

900 B0SUBi490BG0SUBi500:IFX<-YTHENB0SUB970BG0 

T0900 

910 y=3.i4159«X*Ys80T01600 

920 PRINTfflO/'CALCULO DA AREA DA PARABOLA"bGOS 

UB1360:G0SUB1370 

930 GOSUB1490iOO&UBiSnOi 

T0930 

940 V=X*Y*2/3:GOTOi600 

945 REM ***** DESENHA QUADRADO 

950 F0RX=0T044BBET<X F lG>iSFT<X F 30)SNEXTBF0RY=: 

HT030!SET(0 r Y)ssET(44 F Y):NEXTaP0KEP+i3fl 7A:p 

0K£P + 408.76sX=44:.F0RY=i0T029:S£T<X Y) «X-X-? 3 



lalFX<oYTHENQ0SUB970sG0 



: NEXT SP0KEP+394, 60s RETURN 

960 PRINT3704,"0 QUE QUER CALCULAR ?":PRINT:P 

RINT"! - Area 2 - Lado 3 - D i agonal "sRR 

INT! INPUT" ESC0LHA...".aslFQ<i0RQ>3TH 

EN960ELSERETURN 

970 G0SUi;il510:PRINT3704 F "IMP0SSIUEL lit FAOO 

R REINFORMAR."sFORDoiTOtSOO!NEXTBRETURN 

980 PRINT3704,"" : ).NPUT"Ent re com o valor da b 

ase <E))" s B!INPUT"Entre com o valor da altura 

<h>"»H:RETURN 

990 PRINTffl704,"":lNPUT"Ent:re com o valor do 1 

ado";LBRETURN * 

995 REM ***** DESENHA RETANGULO 

1000 FORX=0TO6OBSET<X,16)ESETCX r 3O>:NEXT!F0RY 

==16T030BSET(0,Y)BSET<60 r YJ;NEXT!P0KEP+270 76b 

P0KEP + 4B.l F iO8:P0KEP + 463 F 68:X=O:FORY = 17TO29:SF 

T ( X , Y ) s X-X + 4 . 7 a NEXT a R ETUR N 

1005 REM ***** DESENHA PARALELOGRAMO 

1010 X=OBF0RY«i6TO30:SET<X,Y>BSET(X+60 F Y>BX-X 

+1bNEXT:FORX=OT060sSET(X f 16)sSET(X+14 3Q)!NEX 

TSP0KEP+271, 76 bPOKEP+484, 76 : RETURN 

1020 PRINT»704 r "0 SUE QUER CALCULAR ?":PRINT: 

PRINT"! - Area 2 - Lados": INPUT" 

ESCOLHA. -m";Q:IFQ<10R(1>2THEN1020ELSERETU 

RN 

1025 REM *««** DESENHA TRIANGULO RETANGULO 

1030 X=15BF0RY=5T030BSET(X,Y) !X=X+ifiNEXTsFORY 

= 5T030!SETU5 F Y):NEXT:F0RX=15T040BSET(X,30):N 

EXT:P0KEP»325,67bP0KEP+335 f 72:P0KEP+718 f 67bRE 
TURN 

1035 REM ***** DESENHA TRIANGULO ACUTANGULO 

1040 A=20 = B=<22:F0RY=12T029:GOSUBt67O:A=A-i:B = 

B +3 : NEXT BPOKEF +457, 104 SPOKE* +458, 66: FOR Y»iiTO 

29STEP2:SET<21,Y)BRESET<21,Y>::NEXT:RETURN 

1045 REM ***** DESENHA TRIANGULO OBTUSANGULO 

1050 A=58!B=38!F0RY=12T029:G0SUBiA70sA=A-3sB- 

B~l:NEXTBPOKEPt-414,i04:POKEP+654,66sFORY=12TO 

29STEP2=SET(58 F Y)=NEXTBF0RX=41T061STEP4BSET<X 

,29)bNEXTbRETURN 

1055 REM ***** DESENHA TRAPEZIO 

1060 A=i5!B = 5lBF0RY-2OTO29EG0SUB.l67O!A=A-i:B = 

B+2BNEXT!F0RY=19T030BTEP2BRESET<50 F Y)!NEXT=P0 

KEP+336 , 67 iPOKEP+654, 66 sPOKEP+538, 104: RETURN 

1065 REM ***** DESENHA TRAPEZOIDS 

1070 A=50bFJ=:60: FOR Y=19T02i=G0SUB 1670 :A=A»10:B 

=B+l: NEXT !A-20sB=A3: FOR Y=22T029:G0SUB 1670 BA=A 

-l:B=B4.isNEXTBP0KEP + 647 T 66:P0KEP+523 f 104BPOKE 

P+660 , 65 BPOKEP+541, 72 BPOKEP+673, 67 

1080 F0RY=21TO30STEP2sRE5ET(2O Y > :NEXT:F0R V =1 

9T030STEP2:RESET<6i F Y>BNEXT!SET(20 F 3i):SET(.61 
,31)sRETURN 

1085 REM ***** DESENHA TRIANGULO EQUILATERO 

1090 A=36::B=36bF0RY=8T030bG0SUB1670:A=A~1.3bB 

-3bnEXT!SET(37 f 9)bP0KEP+721,76bRETURN 
REM ***** DESENHA PENTAGONO 

A=36:B=36:F0RY=8T016:G0SUB1670bA=A-2.6!B 
.6bnEXTbA=16:B=55:FORY-17T027:GOSUB1670:A 



='B + 1 

1095 
1100 

=B+2 



=A< .62:B=B~.62bNEXT:P0KEP+658 f 76bSET(54 18) sR 

ETURN 

1105 REM ***** DESENHA HEXAGONO 

1110 A=20B[)=:49BFORY^8TOi8:GOSUB1670BA=A-l.t5: 

B=B + 1.15bNEXTbRESET<49 f 8):A==20:B-49:FORY=29TO 

19STEP--1 b GOSUB 1670 b A=A-1„ 15 BE)=B + i„ 15 b NEXT: RES 

ET (49, 29 )SP0KEP+656,7AB RETURN 

1115 REM ***** DESENHA HEPTAGONO 

1120 A=34BB=34:F0RY==ST0ilBRQSUaJ.670sA=A~d:B=B 

+4 B NEXT :A=10SB=58! FOR Y«i2T02i :GOSUB 1670b A=A~„ 

5:B=B + .5:NEXT:A-"=5:B=--63BF0RY-22T032:0OSUBi670: 

A a A+i.5sB=B-1.5aNEXTspoKEP+720 r 76sRETURN 

1125 REM ***** DESENHA OCTOGONO 

1130 A=34:B=34:F0RY=5T010bG0SUB1670:A=A-4„2bB 

=B+4.2>NEXTiSET(33 f 5)!A=ia:B«55aF0RY=iiTO18!G 

OSUB 1670: A=A-l:B=BH: NEXT BA=34: 8=34 = FOR Y=3?T0 

27STEP-1 b GOSUB1670 : A^A-4 . 2. : B-B+4 . 2 : NEXT 

1140 BET<33 r 32>!A-iasB«55:F0RY«a6T0i9STEP-l:n 
OSUB 1 670 :A»A-UB^B + i: NEXT bPOKEP+650, 76 b RETURN 
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1145 REM ***** DE5ENHA C TRCM 

„ P T " A " 14!B " 48sF0RY = 8 T0iisG03lJBi67C):A-A-2:B 

a. , t J - Nfc.x I « NEXT 

1160 A=24«B = 38:F0RY i =29T027STep-i B G0SUBlA70:A= 

2u2!?;^i'2 E X T i A,al4SB " 48BFOHYBa6Toa3 sTE?-? s 5o 

SUB 1670 :A=A-2:B=B + 2! NEXT !F0RX=7T055 = SET (X ^) 

1170 FORX«670&AeSEl<X,Y>:NEXTaRETURN 
117,, REM ***** DE3ENHA COROA CIRCULAR 

a -1.3 l 046!REbET(X, 1.7) 5NEXT 

J190 A=26:B=35iF0RY=24T022STEP-i :GOSUB 1680: A= 

rJ "»■ 1 H Nfc_X7 

1200 F0RX=32T04ASTEP2BSET(X,i7>iNFXTBF0RX»:47T 

F1(30,Y):NEXT:RETURN 

1203 REM ***** DESENHA SETOR CIRCULAR 

ioi? i"2?J:??J / 4 ? S SI«^3) i iSET<X fa 9):NEXT«F0RX 
pt/I °!?"^ r<X ' 6,stSET < X r28):NEXT?F0RX = 42T046!S 
"<X,6):SET(X r aB) ! NEXT!F0RX-«T05i:SFT<X naN 

K>RY-34T0i7STEP-i fi SET(X r Y)!X=X+i:NFXT 

1220 F0RY=6T017STEF>2::SETC37 Y) U NEXT 

ff?S,rjT a i lB=sa5!F0RY,S!7T0ilsG ^ s UBiA70«A=A-?BB=B 
+ i B NLX7:A=2i:B=25:F0RY«27T023STEP"i.GOSUBi67O 

;-F0«X=in033:3ET(X r i4>!SET(X r a0>«NFxf 

ix-S ?" I S sBa,ar4!F0R Y = i5T0i7 ! G0SUBi670(B=B + iiNE 

flNEXT?R?TURN F0RVHl9T018STEP " iSe0SUBl670 ' BBB+ " 
1245 REM ***** DESENHA SEGMENTO CIRCULAR 
h O 2o A r«iv B=22SF0RY=7T0llse0SUBi 270»NEXT!A^1 

1270 GOSUB 16/0 :A=A-Sa RETURN 

1275 REM ***** DESENHA SETOR DE COROA CIRCULA 

XT- F-OKX=»4iI04SsSET(X,9) =NFXT 

^?2v X ^ 19lF0RYsi0T017sSE:T -< X .> , > s >«=X + i!NfXT«X=J9 
5 ^^4T0i7STEP-i:SET(X,Y ^ X-XH =NEXT: A^21 :B 

l-B-a^sl-ORY-a/TOasSTFF'-i 

^ET(i^3?SFjf 2E>SNEXTsF0RX=iiT033,SET<! <-2i) 

1310 FORX=ilT033:SET<X F 14) sRETCX 20 > : WPYT- a-< 

n: i o S ^ 345F0Ry=5l5T0i7sB< >SUB1670 B B=B + l!NFXT?A 

j2/-B«a9 B F0HY-iiT0i3.G0SUBi660 ! iA-A-2sB-Biisi;E 

aUDiASOsA^A-lsB^B + i^FXT ' tf l " G0 

-oEI (X,Y) = X™X+i s NEXT s RETURN 
1335 REM ***** DESENHA Ft IPSE 

-^10^-£'El(X F /)tHtl<X,a7) ! NEXTsFORX=20T070ss 



';M:RETURN 
'(NiRETURN 
';H:RETURN 
iLisRETURN 



f T(X,8) :SET(X,26> !NEXT:F0RX=i6T074HSET<X 9) as 
^<^ 25 > !N EXT!F0RX*i3T077 = 8ET<X,i0>sSET(X,24> 

1350 A-li=B-79:F0RY=lLT0_i2 = G0RUBi670sA-A-2:B = 
B+2SNEXT=A=11:B=79SF0RY=23T022STEP-1SG0SUB167 
0:a=A-2:B = B.-2:NEXT = A=3:B=82 = F0RY = 13T016:G0SUB 
iA/0aAaA-iaB=!B + isNEXTaA=8iB=ea:F0RY-?iT0ieSTE- 

P-lsCOSUB1670sA=A~l:B^B+i:NFXT ' 

"*° n ^°^ r : = i: 090STEP2 ' SET <X^7):WEXT ! F0RY-7T0a 

n^I^"S^ tT(43 ' Y)!NEXTsSET<4= ' 30):F0RY '"'20T03 
0i»lEP^«&E.T<t> P Y>sNEXTepOKEP+A5a,B8aF0RX»47TO9i 
«1 kP2 ■ SET <X, A >: NEXT bPOKEP+235,89: RETURN 

1365 REM ***** DESENHA PARABOLA 

1370 SET(S j 20)=F0RY=J.7T030STEP2sSFT<45 Y):NEX 
I , sF0RX=34T04SsSET<X,6)BNEXT:F0RX=a6T04S:SET( 1 X 
,7>tNEXTsFORX=20TO45:SET<X f 8):NEXTEF0RX-16T04 

^o?^^:! ) ;. N ^ XTsA=13BB:i=45sFORYB ' 10T oi2!eosuBiA 

1380 A=»8:B«45!F0RY = i3T016E6OSUBi67O!A=A-J JNEX 
TsF0RX=5T045esET(X r i7)sNEXT=RETURN 

1390 lNPUT"Entre com a area ";AsRE7URN 

1400 INPUT"Enlre com a diagonal (D) "-D:RETUR 

1410 INPUT"Entre com um dos lados 

1.420 INPUT"Entre com o outro lado 

1430 INPUT"Entr« com a altura <h> 

1440 INPUT"Entre com o lado menor ^ 1 .„,. 1U1 , I , 

1450 INPUT"Entre com o lado major "?L2=RETURN 

1460 INPUT"Entre cam o valor do raio memor "- 

H 7 . ( Ll^ T " Entr * com ° valor (io raio "ior "p 

Kei!-Kfc.TURN 

1430 PRINT3704,"":iNPUT"Entr & > com o valor do 

anyulo alfa "jZs RETURN 

1490 PRINT3704 '"":lNPUT"Entre com o valor de 

X "pXiiRETURN 

1500 INFMJT"Entris? com o valor d*» Y "-YsRETURN 

1510 PR INT<fl704, STRINGS < 40,32): RETURN 

1520 PR INT3768, STRINGS (40, 32): RETURN 

1530 PR INTS3832, STRINGS (40, 32): RETURN 

1540 PR INT8896, STRINGS (40, 32)! RETURN 

1550 PR INTS960, STRINGS (44, 32)-= RETURN 

1560 FORP=16064T016106SPOKEP, 176! NEXT =FORP=16 

192T016234!P0KEP,131:NEXT:FORI-iTO6!PRINTa76Ei 
resultado e ' ".sp 

ORP = lT050iNFXTsPRiNTa7S4,USIKG^#«*t tftttf HH« ' tt+l 
**-»**tt«"fVssFORD=n , 0400ENEXT!NFXTsRFTURN 
1570 PRINTK)960," T(? cle << RETURN >> para nov 
o c a 1 c u 1 o " . 

1580 AS-INKEYS!.tFASOCHRS<13)THEN1580ELSERETU 
KN 

J5nS "SMnf T ° 3SSET<X+D ' Y),NEXTsX=!X - 2BRE TURN 
1600 fa0faUBi5iOsG0SUflia2O:B0SUBi53Os6OSUBiSS0B 
60SUB 1 560 SGOSUB 1570 :G0T040 

RETURN NPUT " E " tre C ° m ° Valor d ° lado <a> "~> L " 
162,0 INPUT"Ent:re com o valor do lado (b) " ; B: 

1630 INPUT"Ent:re com o valor do lado <c> " ? C! 

1640 INPUT"Ent:re? com o valor da altura <h) "- 

1650 INPUT"Entre com o valor do raio (r> " ; R! 

i ,^° J|- SBpRIN Ta960,"<INF0RME UAL0RE5 NA MESMA 

UNIDADE DE MEDIDA)"- =P = 15360iiRETURN 
1670 FORX==ATOBsSET(X,Y)!NEXT:RETURN 
1680 FQRX=AT0BSRESET<X,Y)«NEXT:RETURN 
1690 PRINT3704,"0 VALOR DA AREA DA BASE E'"-S 
-GOSUB1640!iRETURN ' 

1700 PR INTa704/'"!60SUBi650!B08UB 1640 1 RETURN 
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Muita atenoSo ao disparar os seus P r ° s ^Y° c ^sfnclair 
enfrentando uminimigo esparto, urn micro da famtlm Smclatr. 



fill iiiif'V —/- — r l_„| 

Portanto, comandante, fogo neles\ 




Batalha— 
Naval— 



Waldir Ferreira de Arruda 




O traditional jogo Batalha Naval 
ganha novo cenario: a tela dos 
micros da familia Sinclair. As 
regras, os navios, seus forma- 
tos e quantidades sSo os mesmos (4 sub- 
marines, 4 destroyers, 5 hidroaviCes 2 
cruzadores e 1 couracado) e voc6 serao 
humano que jogara contra o micro. 
Logo depois de rodado, o prograrna 
pede o m'vel de jogo: 1 (facil), 2(m(<dio) 
e 3 (dificil). Em seguida, desenha a tela 
com os dois campos de batalha, sendo 
que o campo do lado direito pertence ao 

micro. rKT _„_„ 

O prograrna entra em FAST para 
montar, randomicamente, os navios do 
micro. Ao final, ele monitora a entrada 
de dados para montar os navios do joga- 
dor (humano), Isto se faz com a digita- 
cSo de "linhas e colunas" e o prograrna 
nede a confirmacSo para cada coordena- 
da digitada (ao todo, sSo 38 partes de 
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navio). Para cada navio a ser montado 
pelo humano, o micro mostra o formato , 
Tqual, no entanto, n5o € checado pelo 
prograrna. Portanto, podem ser cnados 
novos formatos. 



A BATALHA 

O humano inicia o jogo - depois de 
ter desenhado todos os seus navios - 
tendo direito a tres tiros. Ao tenmno 
destes, o micro diz se foi acertada algu- 
ma parte de navio ou se foi apenas agua. 
Para cada parte acertada, hi urna inver- 
sSo de tela simulando uma explosSo e, 
para cada tiro na agua, segue-se uno i bip. 
Aeora se o tiro cair em alguma parte ]1 
aclrtada, o micro emite tres bips e esta 
parte permanece inversa (nSo conta 

P ° Logo que o humano termina seus ti- 



ros o micro faz a seguinte pergunta: 
RECONHECIMENTO (S/N). Se o pga- 
dor responde N, o micro lanca seus tor- 
pedos tse der agua, o rmcro tambem 
emite urn bip e preenche esta coordena- 
d7com urn asterisco; se atingir algurna 
parte, esta ficara piscando, tomando-se 
inversa). Caso o jogador responda S, 
passa pela tela a confirma^o de quantas 
partes se compCe cada navio. 

A esta altura, inicia-se tambem uma 
contagem regressiva de pontos, pois a 
somat6ria de todas as partes de cada co- 
mandante equivale a 38 partes C ^co- 
mandante que conseguir chegar ate ze- 
ro ganha a Batalha Naval 



DETALHES TECNICOS 



A listagem em Assembler deve ser di- 
gitada com o auxflio do momtor pubn- 
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16514 


= 


42 


16530 


= 


24 


16515 


= 


12 


16531 


= 


2 


16516 


= 


64 


16532 


= 


198 


16517 


= 


6 


16533 


= 


128 


16518 


= 


22 


16534 


= 


1 19 


16519 


= 


197 


16535 


= 


16 


16520 


= 


6 


16536 


= 


241 


16521 


= 


32 


16537 


= 


35 


16522 


= 


35 


16538 


= 


193 


16523 


= 


126 


16539 


= 


16 


16524 


= 


254 


16540 


= 


234 


16525 


= 


127 


16541 


= 


201 


16526 


= 


56 


16542 


= 


21 1 


16527 


= 


4 


16543 


= 


240 


16528 


= 


222 


16544 


= 


201 


16529 


= 


128 









cado em MICRO SISTEMAS mimero 23 . 
Ela e* composta de duas rotinas (e* acon- 
selhavel, portanto, reservar 31 bytes na 
primeira linha de REM): 

• de 16514 a 16541 - rotina de inver- 
sa*o da tela; 

• de 16542 a 16544 - rotina de bip 
(esta rotina 6 para o caso do microcom- 
putador CP-200, no qual o programa foi 
desenvolvido; nos demais equipamentos 
que nao tern bip, esta rotina deve ser 
omitida, e as linhas que contiverem a 
instruct RAND USR 16542 nffo devem 
ser digjtadas). 

Como sabemos, uma das tdcnicas uti- 
lizadas para jogar Batalha Naval e dar ti- 
ros em volta da parte atingida de urn na- 
vio para tentar afundS-lo todo. No entan- 
to, esta rotina nffo pode ser implantada 
neste programa, pois ela demandaria mais 
alguns Kbs de memdria, coisa de que 
nffo se dispunha. Para contornar a situa- 
cao e tornar a Batalha mais competiti- 
va, optei pelos niveis de dificuldade 
mencionados no infcio do artigo. 

ObservacSo final: para obter o car- 
ter graTico situado nas linhas 5340, 
5520 5690, 5750 e 5791, digite GRA- 
PHICS SHIFT A. Outra coisa: caso o 
humano queira desistir, basta digitar 
dois asteriscos ( * *) na sua vez de atirar. 



Wald/r Ferreira de Arruda estudou na FASP 
(Faculdade de Sistemas de SSo Paulo). Atual- 
menls trabalha na empresa Incremento in- 
forma'tica S/A. f onde ocupa o cargo de Ana- 
Hsta de ProduoSo. Possui urn CP-200, utifi- 
zando-o como hobby. 



Batalha Naval 



R) 



10 REM (31 CARACTERES QUAISQUE 



15 RAND 

16 REM 

20 DIM M? (15,15) 
30 DIM P?{15,15) 
36 GOSUB VAL "8500" 

40 PRINT AT 7.2:" fXm.l_LI I -LU Tl 

LilumjiLimr 

50 PRINT AT 8,2; 'T 

bl i ii nil irrmrv 

60 PRINT AT 9,2;'1 

I lit! IN 

7o pr int at io,2; "fflEnnmsn 

II Fl 1^ !■ I Pi m W\ » 
80 PRINT AT 13,6;" 



90 P RIN'l AT 14,6;" 

LUMIH" 

100 PRINT AT 15,6;" 
HI II II - 




IHIIMW 



110PRINT AT 16 f 6;" H|P|H Fl I HI 



120 FOR N=l TO 16 

130 LET X=USR 16514 

131 FOR A=l TO 8 

132 NEXT A 
140 NEXT N 
150 CLS 

160 PRIN T AT 7,5;"EnEHBg";AT 7, 
21; "Engjig" 
200 FOR N=l TO 15 
210 LET 2=165+N 

220 PRINT AT 0,N;CHR$ 2;AT 16, N 
;CHR$ Z; 
23 NEXT N 
240 FOR N=17 TO 31 
250 LET Z=149+N 

260 PRINT AT 0,N;CHR$ Z;AT 16 N 
;CHR$ 2; 
270 NEXT N 
280 FOR N=l TO 15 
290 LET 2=165+N 

300 PRINT AT N,0;CHR? 2:AT N,16 
;CHR$ 2; 
310 NEXT N 

320 PRINT AT 0,0;"a";AT 16,0 ■"■ 
";AT 0,16;'W;AT 16,16;"B" 
330 FOR X=l TO 15 
340 FOR N=l TO 15 
350 PRINT AT X,N(" ."; 
360 NEXT N 
370 FOR N=17 TO 31 
380 PRINT AT X,N;" ."; 
390 NEXT N 
400 NEXT X 

405 PRINT AT 18, 1; "AGUARDE, 
CRO MONTANDO NAVIOS " 

406 FOR N=l TO 50 

407 NEXT N 
410 FAST 

420 FOR H=l TO 5 
430 LET L=INT (RND*13)+1 
440 LET C=INT <RND*13)+1 
450 LET T=INT (RND*2)+1 
4 60 IF T=l THEN LET A=3 
470 IF T=l THEN LET B=2 
480 IF T=2 THEN LET A=2 
4 90 IF T=2 THEN LET B=3 
500 IF C=13 AND L<=12 THEN LET 

A=3 

510 IF L=13 AND C<=12 THEN LET 
B=3 

520 IF L=13 THEN LET A=2 

530 IF C=13 THEN LET B=2 

540 IP L=13 AND C=l3 THEN GOTO 
0430 

541 FOR 2=0 TO A 

542 FOR N=0 TO B 

543 IF M$(L+Z,C+N)<>" 
TO 0430 

544 NEXT N 

545 NEXT Z 

546 FOR Z=0 TO A 

547 FOR N=0 TO B 

548 LET M$ (L+Z,C+N)="* 

549 NEXT N 

550 NEXT Z 



MI 



THEN GO 



'770" 



"950' 



'900' 



560 IF L=13 OR C=13 THEN GOTO V 
AL "820" 

570 IF T=l THEN GOTO VAL "700" 

580 GOSUB VAL "1070" 

590 IF T=l THEN GOTO VAL "650" 

600 LET M$(L,C)="ET 

610 LET M$(L,C+2)="CT 

620 LET M$(L+1,C+1)="CI" 

630 NEXT H 

640 GOTO VAL "1100" 

650 LET M$(L,C+l)="m" 

660 LET M$(L+1,C)="H" 

670 LET M$(L+l,C+2)="d" 

680 NEXT H 

690 GOTO VAL "1100" 

700 GOSUB VAL "1070" 

710 IF T=l THEN GOTO VAL 

720 LET M$(L,C)="H" 

730 LET M$(L+1,C+1)="CT' 

740 LET M$,(L+2,C)='ia" 

750 NEXT H 

760 GOTO VAL "1100" 

770 LET M$(L,C+1)="ET 

780 LET M$(L+1,C)="CT 

790 LET M${L+2,C+1)="CT 

800 NEXT H 

810 GOTO VAL "1100" 

820 IF C=13 THEN GOTO VAL 

830 GOSUB VAL "1070" 

840 IF T=l THEN GOTO VAL 

850 LET M$(L+1,C+2)="E1" 

860 LET M${L+2,C+l)="iH" 

870 LET M$ CL+2,C+3)="GT 

880 NEXT H 

890 GOTO VAL "1100" 

900 LET M$(L+1,C+1)='T3" 

910 let M$a+i,t:+3}="Br 

920 LET M$(L+2,C+2)="CT 
930. NEXT H 
940 GOTO VAL "1100" 
950 GOSUB VAL "1070" 
960 IF T=l THEN GOTO VAL "1020" 
970 LET H?(L+l,C+2)="|fl" 
980 LET M$(L+2,C+l)="nf' 
990 LET M${L+3,C+2)='tB" 
1000 NEXT H 
1010 GOTO VAL "1100" 
1020 LET M$ (L+l,C+l)="Gr 
1030 LET M$(L+2,C+2}="Cr 
1040 LET M$ {L+3,C+1)="CT 
1050 NEXT H 
1060 GOTO VAL "13 00" 
1070 LET T=INT (RND*2)+1 
1080 RETURN 

1100 LET L=INT (RND*14)+1 
1110 LET C=INT (RND*14)+1 
1120 LET T=INT (RND*2)+1 
1130 IF T=l THEN LET A=l 
1140 IF T=l THEN LET B=5 
1150 IF T=2 THEN LET A=5 
1160 IF T=2 THEN LET B=l 
1170 IF L=14 AND C>10 THEN GOTO 
VAL "1100" 

1180 IF C=14 AND L>10 THEN GOTO 
VAL "1100" 

1190 IF L>10 AND T=2 THEN GOTO V 
AL "1100" 

1200 IF O10 AND T=l THEN GOTO V 
AL "1100" 
1210 FOR Z=0 TO A 
1220 FOR N=0 TO B 

1230 IF M$(L+2,C+N) <>" " THEN GO 
TO VAL "1100" 
1240 NEXT N 
1250 NEXT Z 
1260 FOR~Z=0 TO A 
1270 FOR H=0 TO B 
1280 LET M$ (L+Z,C+N)="*" 
1290 NEXT N 
1300 NEXT Z 

1310 IF L=14 OR C=14 THEN GOTO V 
AL "1410" 

1320 IF T=l THEN GOTO VAL "1370" 
1330 FOR N=0 TO 4 
1340 LET M$(L+N,G)='Ta" 
1350 NEXT N 
1360 GOTO VAL "1500" 
1370 FOR N=0 TO 4 
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1380 LET M$ (L,C+N)="Q" 

1390 NEXT N 

1400 GOTO VAL "1500" 

1410 IF C=14 THEN GOTO VAL "1460 

1420 FOR N=0 TO 4 

1430 LET M$(L+1,C+N)="H" 

14 40 NEXT N 

1450 GOTO VAL "1500" 

1460 FOR N=l TO 5 

1470 LET M${L+N,C+1)="H" 

1480 NEXT N 

1500 FOR R=l TO 2 

1505 LET PI=PEEK 16591 

1510 LET L=INT (RND*14)+1 

1520 LET C^INT (RND*14)+1 

1530 LET T=INT <RND*2)+1 

1540 IF T=l THEN LET A=l 

1550 IF T=l THEN LET B=4 

1560 IF T=2 THEN LET A=4 

1570 IF T=2 THEN LET B=l 

1560 IF L=14 AND C>11 THEN GOTO 

VAL "1510" 

1590 IF C=14 AND L>11 THEN GOTO- 

VAL "1510" 

1600 IF L>11 AND T=2 THEN GOTO [v 

AL "1510" \ 

1610 IF Oil AND T=l THEN GOTO V 

AL "1510" 

1620 FOR Z=0 TO A 

16 30 FOR N=0 TO B 

1640 IF M$(L+Z,C+N) <>" " THEN GO 

TO VAL "1510" 

1650 NEXT N 

1660 NEXT 2 

1670 FOR 2=0 TO A 

1680 FOR N=0 TO B 

1690 LET M$ (L+Z,C+N)="*" 

1700 NEXT N 

1710 NEXT 2 

1720 IF L=14 OR C=14 THEN GOTO V 

AL "1840" 

1730 IF T=l THEN GOTO VAL "1790" 

1740 FOR N=0 TO 3 

1750 LET M$(L+N,C)="ET 

1760 NEXT N 

1770 NEXT R 

1780 GOTO VAL "1950" 

1790 FOR N=0 TO 3 

1800 LET m (L,C+N)="a" 

1810 NEXT N 

1820 NEXT R 

1830 GOTO VAL "1950" 

1840 IF C=14 THEN GOTO VAL "1900 

1850 FOR N=0 TO 3 

1860 LET M$(L+1,C+N)="H" 

1870 NEXT N 

1880 NEXT R 

1890 GOTO VAL "1950" 

1900 FOR N=l TO 4 

1910 LET M$(L+N,C+1)="S" 

1920 NEXT N 

19 30 NEXT R 

1950 FOR D=l TO 3 

1960 LET L=INT {RND*14)+1 

1970 LET C=INT (RND*14)+1 

1980 LET T=INT (RND*2)+1 

19 90 IF T=l THEN LET A=l 

2000 IF T=l THEN LET B=2 

2010 IF T=2 THEN LET A=2 

2020 IF T=2 THEN LET B=l 

2030 IF L=14 AND C>13 THEN GOTO 

VAL "1960" 

2040 IF C=14 AND L>13 THEN GOTO 

VAL "1960" 

2050 IF L>13 AND T=2 THEN GOTO V 

AL "1960" 

2060 IF C>13 AND T=l THEN GOTO V 

AL "1960" 

2070 FOR Z=0 TO A 

2080 FOR N=0 TO B 

2090 IF M$(L+Z,C+N)<>" " THEN GO 

TO VAL "1960" 

2100 NEXT N 

2110 NEXT 2 

2120 FOR 2=0 TO A 

2130 FOR N=0 TO B 

2140 LET M$(L+Z,C+N)="*" 

2150 NEXT N 



2160 NEXT 3 

2170 IF L=14 OR C=14 THEN GOTO V 

AL "2290" 

2180 IF T=l THEN GOTO VAL "2240" 

2190 FOR N=0 TO 1 

2200 LET M$<L+N,C)="Q" 

2210 NEXT N 

2220 NEXT D 

2230 GOTO VAL "2400" 

2240 FOR N=0 TO 1 

2250 LET M$(L,C+N)="Q" 

2260 NEXT N 

2270 NEXT D 

2280 GOTO VAL "2400" 

2290 IF C=14 THEN GOTO VAL "2350 

2300 FOR N=0 TO 1 

2310 LET M?(L+1,C+N}="E]" 

2320 NEXT N 

2 330 NEXT D 

2340 GOTO VAL "2400" 

2350 FOR N=l TO 2 

2360 LET M$(L+N,C+1)="ET 

2370 NEXT N 

2380 NEXT D 

2400 FOR S=l TO 4 

2410 LET L=INT (RND*15)+1 

2420 LET C=INT <RND*15)+1 

2430 IF M$(L,C)=" " THEN GOTO VA 

L "2450" 

2440 GOTO VAL "2410" 

2450 IF L=l OR L=15 OR C=l OR C= 

15 THEN GOTO VAL "2510" 

2460 IF M$(L-1,C-1)<>"*" AND M$ ( 

L-1,C-1}<>" " OR M$(L-1,C) <>"*" 

AND M$(L-1,C)<>" " OR M$(L-1,C+1 

><>"*" AND M$<L-1,C+1)<>" " OR M 

$(L,C-1) <>"*" AND M$(L,C-1)<>" " 

OR M$ (L,C+1) <>"*" AND M$(L,C+1) 
<>" " OR M$(L+1,C-1) <>"*" AND M$ 
(L+1,C-1) <>" " OR M$ (L+1,C) <>"*" 

AND M$tL+l,C)<>" " OR M$(L+1,C+ 
1)<>"*" AND M$(L+1,C+1)<>" " THE 
N GOTO 2410 
2470 GOTO VAL "2760" 
2510 IF L=l AND C=l THEN GOTO VA 
L "2 600" 

2520 IF L=l AND C=15 THEN GOTO V 
AL "2 620" 

2530 IF L=l AND C>1 AND C<15 THE 
N GOTO VAL "2640" 

2540 IF L=15 AND Ol AND C<15 TH 
EN GOTO VAL "2660" 
2550 IF L=15 AND C=l THEN GOTO V 
AL "2680" 

2560 IF L=15 AND C=15 THEN GOTO 
VAL "2700" 

2570 IF C=l AND L>1 AND L<15 THE 
N GOTO VAL "2720" 

2580 IF C = 15 AND L>1 AND L<15 TH 
EN GOTO VAL "2740" 

2600 IF M$(L,C+1)<>"*" AND M$(L, 
C+l}<>" " OR M$(L+1,C) <>"*" AND 
M$(L+1,C)<>" " OR M${L+1,C+1)<>" 
*" AND M$(L+1,C+1) <>" " THEN GOT 
O 2410 

2610 GOTO VAL "2760" 
2620 IF M$(L,C-1) <>"*" AMD M$<L, 
C-l><>" " OR M$(L-M,C)<>"*" AND 
M$(L+1,C}<>" " OR M$(L+1,C-1) <>" 
*" AND M$(L+1,C-1) <>" " THEN GOT 
O 2410 

2630 GOTO VAL "2760" 
2640 IF M$ (L,C-1) <>"*" AND M$(L, 
C-l}<>" " OR M$ (L,C+1)<>"*" AND 
M$(L,C+1)<>" " OR M$(L+1,C-1) <>" 
*" AND M$(L+1,C-1}<>" " OR M$ (L+ 
1,C)<>"*" AND M$(L+1,C)<>" " OR 
M$ (L+1,C+1) <>"*" AND M$(L+1,C+1) 
<>" " THEN GOTO 2410 
2650 GOTO VAL "2760" 
2660 IF M${L,C-1) <>"*" AND M$(L, 
C-l)<>" " OR M$(L,C+1) <>"*" AND 
M$(L,C+1) <>" " OR M$ (L-1,C-1) <>" 
*" AND M${L-1,C-1) <>" " OR M$(L- 
1,C)<>"*" AND M$(L-1,C}<>" " OR 
M$ (L-1,C+1)<>"*" AND M${L-1,C+1> 
<>" " THEN GOTO 2410 
2670 GOTO VAL "2760" 
2680 IF M$(L-1,C) <>"*" AND M$ (L- 



1,C}<>" " OR M$(L-1,C+1) <>"*" AN 

D M$(L-1,C+1) <>" " OR M$(L,C+1)< 

=■"*" AND M$(L,C+1)<>" " THEN GOT 

O 2410 

2690 GOTO VAL "2760" 

2700 IF M$ (L,C-1><>"*" AND M$<L, 

C-l)<>" " OR M$(L-1,C-1) <>"*" AN 

D M$(L-1,C-1><>" " OR M$(L-1,C)< 

>"*" AND M$(L-1,C)<>" " THEN GOT 

O 2410 

2710 GOTO VAL "2760" 

2720 IF M$(L-1,C) <>"*" AND M$ {L- 

1,C)<>" " OR M$ <L-1,C+1) <>"*" AN 

D M${L-1,C+1) <>" " OR M$(L f C+l}< 

>"*" AND M$(L,C+1)<>" " OR M$(L+ 

1,C+1)<>"*" AND M${L+1,C+1) <>" " 

OR M$(L+1,C) <>"*" AND M$(L+1,C) 
<>" " THEN GOTO 2410 
2730 GOTO VAL "2760" 
2740 IF M$(L-1,C)*>"*" AND M$<L- 
1,C)<>" " OR M$(L-1,C-1) <>"*" AN 
D M$<L-1,C-1)<>" " OR M$(L,C-1)< 
>"*" AND M?(L,C-1)<>" " OR M$ (L+ 
1,C-1)<>"*" AND M$(L+1,C-1) <>" " 

OR M$ (L+1,C)<>"*" AND M$(L+1,C) 
<>" " THEN GOTO 2410 
2760 LET M${L,C)='H" 
2770 NEXT S 
2780 SLOW 

2790 PRINT AT 18,1; "OK... AGORA 
ED A SUA VEZ 
2800 FOR N=l TO 40 
2810 NEXT N 

2815 DIM A${38,2) 

2816 LET A=0 

2817 LET HID=6 

2820 PRINT AT 18,1; "MONTE 5 HIDR 
OS flS3 

2900 FOR H=l TO 5 

2901 PRINT AT 18,l;"MONTE ";HID- 
H;." HIDROS HE 

2910 FOR N=l TO 3 

2920 GOSUB VAL "3150" 

2930 NEXT N 

294 NEXT H 

2950 PRINT AT 18,1; "MONTE 1 COUR 

ACADO: ECTE13 

2960 FOR N=l TO 5 

2970 GOSUB VAL "3150" 

2980 NEXT N 

2981 LET CRU=3 

2985 PRI NT AT 18,1; "MONTE 2 CRUZ 
ADORES: DBB3 " 

2990 FOR Z=l TO 2 

2991 PRINT AT 18,l;"MONTE ";CRU- 
Z;" CRU2ADORES: tgCTl 

30 00 FOR N=l TO 4 

3010 GOSUB VAL "3150" 

3020 NEXT N 

3030 NEXT Z 

3035 LET DES=4 

3040 PRINT AT 18,1; "MONTE 3 DEST 

ROYERS: IB " 

3050 FOR D=l TO 3 

3055 PRINT AT 18,l;"MONTE ";DES- 

D;" DESTROYERS: tB 

3060 FOR N=l TO 2 

30 70 GOSUB VAL "3150" 

3080 NEXT N 

3090 NEXT D 

3095 LET SUB=5 

3100 PRINT AT 18,1; "MONTE 4 SUBM 

ARINOS: ■ 

3110 FOR S=l TO 4 

3115 PRINT AT 18,l;"MONTE " ; SUB- 

S;" SUBMARINOS: □ 

3120 GOSUB VAL "3150" 

3130 NEXT S 

3140 GOTO VAL "4000" 

3150 PRINT AT 19,1;"DIGITE LINHA 

/COLUNA 

3160 INPUT L$ 

3170 IF LEN L?<>2 THEN GOTO VAL 



"3150" 




3180 LET L=CODE L? (1) -37 




3181 IF L'<1 OR L>15 THEN 


GOTO VA 


L "3340" 




3190 LET C=CODE L$(2)-37 




3220 IF C<1 OR C>15 THEN 


GOTO VA 


L "3360" 
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CURSOS DE APE RFHCOAMENTO 



MAIS SUCESSO IWRA VOCE! 

Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc§ o mais moderno ensino 

tecnico programado e desenvolvido no Pafs. 






Memdos novos e ineditos de ensino garantem urn aprendizado 
pratico muito melhor, Em cada nova licafo, apostilas tlustradas 
ens.nam tudo sobre Amphficadores, Catxas Acust.cas. Equahzadoies 
Toca-d,scos, Smtonizadores AM/FM, Gravadores e Toca Fitas Capsulas 
e Fonocaptadores, M.crofones, Sononzacab. Instrumental Med'das 
em Aud.o, Tecn.cas de Gravacab e tambfim de Reparacao em Audio 






■ ■■#»• WwUf.i 



Este CURSO, especiatmente programado, oferece os 
fundamemos de Linguagem de Programado que domina o umverso 
SZ^V^C™- Dinflmico " b -"^te. ensina o°sdeo ^ 
5? a m« i - I I m8,S avan ? ad °- inclufndo nogoes bas.cas sobre 

Proc P ss amenio^nTVt'™* de P ™a™**>. S.stemas de 
T^f . 0S ' Te| eproce5samento, Multiprogramacao e 

JnnnZ em t L,n 9 ua 9 em de M aqy,n a , que proporcionam um qTande 
conhectmento em toda a area de Processamento de Dados 



'^lllA KI CeDM fl 3 ram S a p, CE T- 2 K ' T F ° nte de A "™<^o 
rFnMr^Tl n Placa Experimental 

EftAr«n r?AL r 8 C °™ p ° nentes ' CEDM-5 KIT Pre -ampl.f.cador 
Estereo. CEDM-6 KIT Amphficador Estereo 40w 



™. »y oc5 me 1??. f** 18 etesenvolver um ritmo pr6prio de estudo. A lin- 
guagem simpl.f.cada dos CURSOS CEDM permit^ aprendizado acil E 
para esclarecer qualquer duvida, o CEDM cofoca a sua disposicSb uma 

™™^ i?^ r ° feSSOreS Sempre muito bom a«««>rada. Alem disso, vex* 
receoe KITS preparados para os seus exerefcios praticos. 

^r'n^" 10 e P erfeitamente adequado a nossa realidade, os CUR- 
™X*-T por corr » 8 P° n dencia garantem condipoes ideals para o seu 

aperfei$oamento profissionat. *^ wu 




GRA7YS 




Voc6 tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias voc« recebe nossos catalogos de apresentagao. 



KIT CEDM Z80 

BASIC Cientffico 

KITCEDMZ80 

BASIC Simples, 

Gabanto de Fluxograma 

E-4. KIT CEDM SOFTWARE 

Fitas Cassete com Programs*. 



..;■■!■ »"^*::„ = 



L r flM Avw,ida S*o P«"lo. 718 - Pone (0432) 23-9674 
Bm*mVI f CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 
CURSO DEAPERFEigOAMENTO POR CORRESPONDENCE 

Sollcitoomalsrapldo possfvel Informacoe* sem compromise sobre o 
CURSO de 

Nome 

Rua 

Cidade 

B»irro CEp . . 

MS 



W" ■_J2_*^^^^*- ■ 



w«HMB«w5WHawH»»kJIJJllUI! < Jl^MKWP^ 



BATALHA NAVAL 



THEN GOTO V 



CONF 



3230 IF P$(L,C)<>' 

AL "3380" 

3240 PRINT AT L,C;'W 

3250 PRINT AT 19,1;" (S/N) 

IRME - POR FAVOR " 

3270 IF INKEY$="S" THEN GOTO VAL 

"3400" 
3280 IF INKEY$="N" THEN GOTO VAL 

"3300" 
3290 GOTO VAL "3270" 
3300 PRINT AT L,C;" " 
3320 PRINT AT 19,1;" 



3330 

3340 
DA 
3341 
3342 

3350 

3360 

IDA 

3361 

3362 

3370 

3380 

PADO 

3381 

3382 

3390 

3400 



GOTO VAL "3150" 

PRINT AT 19,1;"LINHA INVALI 

FOR T=l TO 10 

NEXT T 

GOTO VAL "3150" 

PRINT AT 19,l;"COLUNA INVAL 

FOR T=l TO 10 

NEXT T 

GOTO VAL "3150" 

PRINT AT 19,l;"CAMPO JA OCU 

FOR T=l TO 10 
NEXT T 

GOTO VAL "3150" 
PRINT AT 19,1; " 



3410 LET P¥(L,C)='W 

3411 LET A=A+1 

3412 LET A$(A)=L$ 
3420 RETURN 

4000 PRINT AT 18,l;"MUITO BEM. . . 
VOCE TEM 3 TIROS." 

4010 PRINT AT 20,1; "E LOGO EM SE 
GUIDA DAREI OS MEUS" 

4011 FOR N=l TO 30 

4012 NEXT N 

4020 FOR N=l TO 3 
4030 PRINT AT 17+N,!;'^ 

4040 NEXT N 

5000 LET M=0 

5010 LET P=M 

5020 DIM I{31 

5030 DIM 0(3) 

5035 DIM W$(3,2) 

5040 FOR N=l TO 3 

5050 PRINT AT 18, 1; "INFORME LINH 

A E COLUNA >JUNTOS<" 

5060 INPUT N$ „,_„,_ 

5065 IF N?="**" THEN GOTO 8525 

5070 IF LBN N$<>2 THEN GOTO VAL 

"5160" 

5080 LET L=CODE N$(l TO l)-37 

5090 IF L<1 OR L>15 THEN GOTO VA 

L ".5J.60" 

5100 LET C=CODE N$ (2 TO 2) -37 

5110 IF C<1 OR C>15 THEN GOTO VA 

I, "5160" 

5120 PRINT AT L,C+16;"*" 

5130 LET I(N)=L 

5140 LET 0(N)=C 

5145 LET W$tN)=N$ 

5150 GOTO VAL "5200" 

5160 PRINT AT 18 f l;">>>>> TIRO I 

NVALIDO <<<<< 

5170 FOR Y=l TO 10 

5180 NEXT Y 

5190 GOTO VAL "5050" 

5200 NEXT N 

5205 FOR N=l TO 3 

5210 IF M*U(N),0(N))<>" " AND M 

$(I(N) ,0<N))<>"*" THEN GOTO 5260 

5220 LET M${I(N) ,0{N) )="*" 

5230 PRINT AT 17+N,l;"TORPEDO ; 

N ; " AGUA 

5240 NEXT N 

5241 FOR Z=l TO 30 
524 2 NEXT Z 

5250 GOTO VAL "5590" 

5260 LET X=CODE M$ (I (N) ,0 (N> ) 

5270 IF X=8 THEN GOTO VAL "5330" 

5280 IF X=173 THEN GOTO VAL "542 

5290 IF X=168 THEN GOTO VAL "544 
0" 



5300 IF X=191 THEN GOTO VAL "5,46 
5310 IF X=184 THEN GOTO VAL "548 

5320 IF X=169 THEN GOTO VAL "550 

" „ 

5330 PRINT AT 17+N, 1; "TORPEDO ; 

N-" PARTE JA ATINGIDA " 

5340 PRINT I(N),0<N)+16;'W 

5350 FOR B=l TO 3 

5360 RAND USR 16542 

5370 FOR Z=l TO 5 

5380 NEXT Z 

5 390 NEXT B 

5400 NEXT N 

5410 GOTO VAL "5590" 

5420 PRINT AT 17+N, 1; "TORPEDO^ ; 

W$ (N) ;" >> HIDRO « 

5430 GOTO VAL "5510" 

5440 PRINT AT. 17+N, 1 ; "TORPEDO ^ ; 

W${N);" > COURACADO < 

5450 GOTO VAL "5510" 

5460 PRINT AT 17+N, 1 ; "TORPEDO ; 

W$(N) ;-"-> CRUZADOR < 

5470 GOTO VAL "5510" 

5480 PRINT AT 17+N , 1; "TORPEDO ; 

W$(N);" > SUBMARINO < 

5490 GOTO VAL "5510" 

5500 PRINT AT 17+N, 1 ; "TORPEDO ^ ; 

W$(N);" > DESTROYER < t |j 

5510 PRINT AT I (N) ,0 (N) +16; "■" 

5520 LET M$(I(N) ,0(N)='W 

5530 FOR W=l TO 6 

5540 RAND USR 16514 

5550 NEXT W 

5560 LET P=P+1 

5561 PRINT AT 21 ,1; "HUMANO = j38 
-P,AT 21,15;"MICRO =";38-M;" " 
5570 IF P=38 THEN GOTO VAL 5900 

5580 NEXT N 

5581 FOR N=l TO 50 

5582 NEXT N 

5590 FOR N=l TO 3 
5600 PRINT AT 17+N,1?" 

5610 NEXT N t¥ „„ 

5611 PRINT AT 18 ,1 ; " RECONHECIMEN 
TO? (S/N) " 

5612 IF INKEY$="S" THEN GOTO VAL 
"8000" 

5613 IF INKEY$="N" THEN GOTO VAL 
"5620" 

5614 GOTO VAL "5612" 

5620 PRINT AT 18,1;"EE MINHA VEZ 

... LA VAI CHUMBO" 
5630 FOR N=l TO 10 
5640 NEXT N 
5650 PRINT AT 18,1;" 

5655 FAST 

5660 FOR N=l TO 3 , lr ^™ 

5661 IF NI=1 THEN GOTO VAL 5670 

5662 IF NI=2 THEN GOTO VAL "5664 

5663 IF NI=3 THEN GO^O VAL "5669 

5664 IF M<P THEN GOTO VAL "5741" 

5665 GOTO VAL "5670" 

5669 IF M<=P THEN GOTO VAL "5741 

5670 LET L=INT (RND*15)+1 
5680 LET C=INT {RND*15)+1 

5690 IF P$(L,C)='W OR P$(L,C) = 

*" THEN GOTO VAL "5670" 

5700 IF P$(L,C)='W THEN GOTO VA 

L "7000" 

5710 LET P$(L,C)="*" 

5720 PRINT AT L,C;"*" 

5725 RAND USR 16542 

5730 NEXT N 

57 35 SLOW 

5740 GOTO VAL "5830" 

5741 LET SA=INT (RND*38)+1 

5742 IF A?(SA)="**" THEN GOTO VA 
L "5741" 

5743 LET L=CODE A$(SA)-37 

5744 LET C=CODE A?(SA,2 TO )-37 

5745 LET A$ (SA)="**" 



5750 LET P$(L,C) ='W 

5755 SLOW 

5760 PRINT AT L,C;'W 

5770 FOR W=l TO 10 

5771 PRINT AT L,C;" '" 

5780 PRINT AT L,C;'W 

5781 RAND USR 16542 

5790 NEXT W 

5791 PRINT AT L,C{ n H" 

5800 LET M=M+1 ^ n 

5801 PRINT AT 21 ,1; "HUMANO - ;38 
-P,AT 21,15;"MICRO =";38-M; 
5B10 IF M>=38 THEN GOTO VAL 600 
0" 

5815 FAST 

5820 NEXT N 

5825 SLOW 

5830 PRINT AT 18,1;" 

JOGA <<<" 
5840 FOR N=l TO 10 
5850 NEXT N 
5860 PRINT AT 18,1;" 



HUMANO 



>>> PERDI 



REND 



5870 GOTO VAL' "5020" 

5900 PRINT AT 18,1;" 

A BATALHA <<< " „„ M 

5910 PRINT AT 19,1; "MEUS NAVIOS 

FORAM DESTRUIDOS" 

5920 PRINT AT 20,1; 

O - M E " 

5930 FOR N=l TO 50 

5940 NEXT N 

5960 CLS 

5970 GOTO VAL "8530" 

6000 PRINT AT l8,l;"VOCE FOI RED 

UZIDO A CINZAS" „„„,„. 

6010 PRINT AT 19,1; "NAO CONSEGUI 

U RESISTIR AOS MEUS" 

6020 PRINT AT 20,1;"TIROS CERTEI 

ROS ... HA HA HA " 

6030 GOTO VAL "5930" 

7000 FOR W=l TO 38 

7010 IF CHR$ ((L)+37)+CHR$ ((C) + 

37)=A$(W) THEN LET A?(W)="** 

7020 NEXT W 

7030 GOTO 5750 

8000 PRINT AT 19 , lj "COURACADO 5 

PARTES" 

8010 GOSUB VAL "8100 

8020 PRINT AT 19 , 1; "CRUZADOR 4 

PARTES"" ^ _„ 

8030 GOSUB VAL "8100" 

8040 PRINT AT 19 , 1; "DESTROYERS 2 
PARTES " 

8050 GOSUB VAL "8100 

8060 PRINT AT 19 , 1; "SUBMARINO 1 

PARTE " 

8070 GOSUB VAL "8100" 

8080 GOTO VAL "5590" 

8100 FOR W=l TO 15 

8110 NEXT W 

8120 RETURN 

8500 PRINT ,,,,,,,, "ESCOLHA 
VEL DE JOGO",,,"1 - FACIL", 

MEDIO",, "3 - DIFICIL" 

8501 INPUT NI 

8510 IF NK1 OR NI>3 THEN GOTO V 

AL "8501" 

8515 CLS 

8520 RETURN 

8525 CLS 

8530 LET Z$= . 

8540 PRINT AT 1,5;Z$ 

9000 FOR W=l TO 15 

9005 LET X=165+W 

9010 PRINT AT W+1,4;CHR? X;M¥ (W) 

;CHR$ X 

9020 NEXT W 

9025 PRINT AT 17,5;Z$ 

9030 PRINT AT 19,5; "NAVIOS DO MI 

CRO" .„ 

9040 PRINT AT 21,1;"P/ OUTRA BAT 

ALHA APERTE RUN" 

9045 STOP 

9050 SAVE "BATALHA NAVAL" 

9060 .RUN 



■ NI 
2 - 
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MS 
NO 



27 



IMAPAGINA 



29 



29 



29 



29 



30 



31 



75, no programa Projeto de 
Antenas Direcionais, troque 
as linhas 170 e 590 que fo- 
ram publicadas por: 



15, no programa Vigas Con- 
tinuas, troque as linhas 480, 
510, 550, 635, 780, 940, 
1 160 e 1 200 que foiam pu- 
blicadas por: 



42, no programa Linha de 
Influincia, troque as linhas 
75, 430 e 460 que foram 
publicadas por: 



65, no programa Catdlogo, 
troque a linha 38400 que 
foi publicada por: 



77, no programa Marcus, 
troque a linha 200 que 
foi publicada por: 



38, na materia PacotSo de 
hardware para os Sinclair, 
a figura 7 foi publicada 
faltando alguns dados; veja 
a correta: 



1 5, do programa Editor 
de Textos, as ultimas 
linhas da listagem foram 
suprimidas; acrescente, 
ap6s a linha 2360, as 
seguintes linhas: 
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CORREQAO 



170 LET REF=INT(500/F*30+0.5)/100 
590 FOR I=INI TO FIM 



480 H=-;U(1,2)*X+U(1,3))/U(1,1):R(1)=R:R(2)=X:MF=U(2,1)*R+U( 
2,2)*X+U(2,3):GOTO 520 

510 R=(Y-U(2,2)*X-U(2 / 3n/U(2,1) : R(1)=R:R{2)=X:MF=Y 

550 PRINT"MOM. NEGATIVo\= ",INT(R(2)) 

635 PRINT:PRINT:PRINT"MOMj. FINAL = ",,INT(MF) 

780 PRINT"QE = ",,INT(Q) 

940 IF D<0 THEN GOTO 1010 

1160 G=P(A) : Q=2*Z(1)*A(G)+Z(2) : PRINT "QD= ",,INT<Q) 

1200 PRINT"M+ = ",INT<X(4)) 



75:INPUT "SIMP(0), ENG(0.5) = ";F 
430:Y=H*(M*R-s)/( 1-H*M) 
460:Y=M*{H*S-R)/{ 1-M*H) 



38400 IFJ>JNMP%(C1 )THENC3(7)=J-FNMP%(C1 ) :J=FNMP%(C1 ) -GOSUB 
38500:C3(1)=C3(1)-J:C3(6)=C3{6)+J:J=C3{7):GOTO38400 



200 



HI 



G>n 



"~ fi3 ) tool y^- 



tnihpotI 

3H3 



"~1 



O, 1P-F 



X 



I 0.01HF 

cer&h. 



win 



J L 




NOTA: - 

T000S OS RESISTOfiES 

SAO DE 1/B* 



Figura 7 do Pacotdo de Hardware para os Sinclair 



2370 IF J=TM THEN 2390 

2400 e^ ? 2^ 5 ^ e T ^o IF J> ° THEN ^-'■W"PT»(W.a> 

2410 PRINT@K,RS;CHR$(CR) • 

2420 GOTO 2360 
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Nao deixe que os bytes dec/dam por voc§. Conhega-os melhor e aprenda 
a controlA-los. Aqui, alguns segredinhos sobre eles 



£ 



Mantenha seus bytes 
sob controle 



Carlos Alberto Diz 



Todos conhecemos o byte e o tratamos com a familia- 
ridade de um velho amigo. Sendo assim, sabemos que 
um byte 4 um conjunto de bits (oito) e que um bit e 
algo que s6 pode ter dois valores ou estados: 1 (ligado 
ou setado) ou (desligado ou ressetado). Um bit e, portanto, o 
menor elemento de informaca*o num computador. 

O valor de um byte e determinado pelo estado dos bits 
que o compSem e pela ordem em que se encontram, pois os 
bits nao sa"o todos iguais. Cada bit, por sua posicSo dentro do 
byte, corresponde a uma potencia de 2, na seguinte ordem (no- 
te que os bits estSo numerados da direita para a esquerda, co- 
mecando com o numero e terminando com o numero 7): 



SETANDO E RESSETANDO 



Bit 


ii5 : 


7 


6 


5 


4 


3 


2 


1 





X 




7 


6 


5 


k 


3 


2 


1 





2 


x : 


1 28 


64 


32 


1 6 


8 


4 


2 


1 



O valor de um byte £ a soma dos vaiores (j>otencias de 2) 
individuals dos bits que nele encontram-se setados (lembramos 
que um numero elevado a potencia de e* igual a 1). Por exem- 
plo: 



Bit ns ; 
2 x : 


7 
126 


6 
61 


5 
32 


4 

16 


3 

8 


2 


1 
2 



1 




Byte A : 
Byte B : 
Byte C : 



1 
1 


1 
1 
1 


1 

1 




1 




1 


1 

1 


1 

1 


1 

1 


= 103 
= 192 

= 255 



A conclusSo e* que o valor de um byte 6 obtido atrave's da 
soma dos valores correspondentes aos bits que estejam setados. 
Conforme a tabela que acabamos de ver, o byte A e, portanto, 
igual a 64+32+4+2+1 , o byte B e igual a 1 28+64 e assim por dian- 
te. (£, interessante notar que o valor do byte C, que tern todos 
os seus bits setados, d igual a 255, ou seja, 2^—1 =256—1 
= 255. Isto significa dizer que podemos calcular o valor maxi- 
mo representavel por um numero x de bits como sendo 2*— 1). 

Segundo as regras de combinasoes e permutacCes, oito coi- 
sas que possam ter dois estados cada uma permitem 256 com- 
binaco"es diferentes, como e o nosso caso. Ai alguns va"o dizer: 
"Errou! Errou! Se o valor maximo de um byte e 255, como 
pode ter 256 combinacoes?" E eu direi: "Na*o se esquecam do 
zero! Do ao 255 sao 256 passos, certo?" 
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Uma das tantas conclusoes que se pode tirar da observa?So 
de numeros bina'rios 6 que cada bit representa um valor que 6 
uma funcffo de sua posica"o dentro do byte. Por exemplo, o 
terceiro bit (contando sempre da direita para a esquerda) re- 
presenta o valor 4 e o setimo o valor 64. 

Suponhamos ter um byte com valor 90 (01011010). Se 
conseguirmos ressetar o bit numero 3, transformaremos o 
byte 90 em 82 (01010010), pois a tinica diferenca entre 90 
e 82 e o bit numero 3 que, na"o por acaso, representa o valor 
8, ou seja, 90—82 = 8. Ressetar um bit significa portanto 
subtrair do byte o valor correspondente a este bit, enquanto 
setar o bit equivale a somar. 

Ate" aqui nenhuma novidade, mas como fazer para setar ou 
ressetar o bit? Vamos, entSo, ao que afinal nos interessa: como 
manipular estes bits, ou seja, como setar ou ressetar um bit 
dentro de um byte. Para isto, sera" necessano refrescar um pou- 
co a memoria sobre as propriedades das fun§6es 16gicas AND, 
OR e NOT. 

A figura 1 mostra as tabelas de resultados destas operates, 
que, apesar de aplica'veis no micro a bytes inteiros, agem, na 
realidade, a nivel de bit. Por exemplo: a funcffo AND, quando 
aplicada entre dois bytes (A AND B), produzird um terceiro 
(C) cujos bits serSo o resultado de um AND entre os bits de 
A e os de B, um a um, segundo as regras que constam da figu- 
ra 1. 

Usando os mesmos bytes que usamos anteriormente, se 
A= 90 e B= 82, entao A AND B = C e C= 82 (figura 2). Mara- 
vilha! Conseguimos encontrar uma maneira de'ressetar o bit 
numero 3 em A, e apesar de na"o ser exatamente a solucffo, 
aqueles que curtem um suspense j6 tern aqui uma boa dica. 

Se eu quiser ressetar o bit numero 1 de 18 (00010010), 
devo entiTo ANDed-lo (que o Aurelio me perdoe!) com 16, 
pois 18 AND 16 = 16 (isto 6, 18 com o bit 1 ressetado). "£, 
mas se eu souber de antema"o qual o valor de B para transfor- 
mar A em B, por que na*o uso B de uma vez e pronto?", dira"o 
aqueles que sempre dizem estas coisas e com raza"o, pois o que 
precisamos e' de uma tecnica que seja independente do byte 
original. 
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Figured 



A = 0101 1010=90 
B - 0101 001 0=82 
A AND D = C = 01010010=82 



Figura 2 



B realmente a dica & boa, ja" que um momento de reflexffo 
revela que conseguimos ressetar o bit que queriamos porque 
fizemos um AND dele com 0, e o resto do byte ficou inaltera- 
do porque todos os demais bits foram ANDeados com 1 (con- 
fira voce mesmo), A conclusSo e que, para ressetar um bit num 
byte determinado, 4 preciso ANDear este ultimo com outro 
cujos bits estejam todos setados, exceto o que corresponde a 
posigSo do bit que queremos ressetar. Em outras palavras (ou 
mimeros): para ressetar o bit numero 3 (2*3= 8) de 90 preci- 
sarrios ANDed-b com 247 (255-8= 247) ]L pois 0101 1010 AND 
11110111 = 01010010, certo?E, da mesma forma, para setar 
este bit de novo, precisamos ORed-lo com 8, pois 01010010 
OR 00001000 = 01011010. E, finalmente, como NOT 
(00001000) = 11110111, entffo 90 AND(255-8) - 90 AND 
NOT(8). f 

Fazendo algumas experiencias, "descobrimos, adicionalmen- 
te, que se chamarmos de X um byte que consista de um s6 bit 
na posica"o correspondente ao bit em A que deseiamos mani- 
pular, entffo: 

X se o bit ea quest a o estlver seta do 

se o bit em questio estlver ressetado 



A AND X = 



Em resumo: 

1 -a funeffo AND permite verificar o estado de um bit; 

2 - a funcao AND NOT permite ressetar um bit; 

3 — a funeffo OR permite setar um bit. 

E aqui os sequazes de Sao Tome se questionarao: "Sera - este 
cara mais um daqueles loucos que gostam de descobrir manei- 
ras de contrariar o computador e fazer o impossivel s6 pelo 
prazer de dizer que esta" feito, ou este papo de mexer nos bits 
serve para alguma coisa de util?" E a estes eu respondo: as 
grandes invencOes na"o surgem em funcab de umanecessidade, 
mas sim vice-versa, porem desta vez ja* existe uma aplicaca"o 
pratica para tudo que acabo de fevelar... 



EXEMPLOS DE APLICA^AO 



Como primeiro exemplo, suponhamos que em um determi- 
nado programa espere-se do operador, pela razao que seja, o 
input de uma letra, por exemplo, A maiusculo. Se o teclado do 
computador tiver maiusculas e minusculas e o programa na"o 
especificar que espera uma letra maiuscula, o operador estart 
sujeiro a teclar um a ou um A, dependendo mais da inspiraeffo 
do momento do que de uma consideraca"o 16gica sobre as con- 
sequencias de uma decisffo ligeira. E, segundo a lei de Murphy, 
ele sempre teclara" a letra errada e o seu programa podera" en- 
tao fazer coisas incri'veis... 

Contando com esta inevita"vel insensibilidade do operador, 
voce podera" fazer com que o programa aceite indiferentemente 
minusculas e maiusculas. Para tanto, voce podera" usar uma das 
213 diferentes solucSes encontradas para este problema pelos 
analistas do American Institute of Informatic Idiosynchrasies 
(AM), como por exemplo : 
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O sucesso no Micro-Festival 84, 
" da qualidade maior, 
" do prego menor e 

das vendas realizadas, 

agora tern um novo nome: 

tcraftll 

plus 

e um novo enderego: 



fs 



computer store 



A Sacco Computer Store, esta agora em novas e 
amplas instalagoes com sua variada linha de compu- 
tadores e perifericos, destacando-se o novo micro- 
computador CRAFT If plus*, totalmente compatfvel 
com D.O.S. 3.3 e CP/M. 

Conheca todas as caracterfsticas e vantagens 

do CRAFT II pfus, tambem compatfvel com IVANITA* *, 
em nosso novo endereco: 

Al. Gabriel Monteiro da Silva, 1229 -J. Paulistano 
Sao Paulo - Tels.: (011) 853-5520 e 280-4778 

C) CRAFT II plus e matca registrar da MICfiOCRAPT Ind e Com Ll(fa 
(") IVANITA - Gerador de.Caiflcleres para lingua portuguesa 



MANTENHA SEUS BYTES SOB CONTROLE 



\l ™i^ T J? I 5S*X£ C 25£ <0>):REM reseta todos os bits dos 20 bvtGS ««« comooem RPi 
20 FOR 1 = TO 15?: REM 160 vezes. uma oara cada resDosta 

25 BY = INT(I/8) + l: BI = (CI/8>-INT<I/8)> *8 

30 PRINT"Indiaue a resposta (S/N) "; 

en «if I JJ?i EY * :IF X S = ""^HEN 40 ELSE X$ = CHRS(ASC(X$) AND NOT<32» 

50 ON INSTR("SN",X$> GOTO 70.80:REM Aceita soroente S ou N 

™ £SJS«* 0:REM Volta a pedir input caso nao tenha sido S nem H 

In "J°* »™ B X ,X> * CHRS<ASC(MID$(RP *- BY ' l>) 0R < 2aBI » : HEM Seta o bit se for Sim 
eu NtXT:REM Vem direto para aqui se for NAO <os bits foram resetados no inicio) 



Figura 3 



• dizer ao operador que tipo de letra voce quer (pouco imagi- 
nativo); 

• duplicar o c6digo de resposta (trabalhoso e ineficienVe); 

• fazer urn IF para ver se a letra e minuscula e transforrrfaMa 
em maiuscula se realmente for (muito pouco elegante e lento). 

Voce pode escolher qualquer uma, ou enta*o op tar pela solu- 
ca"o mais rapida e eficiente: fazer urn AND da letra inputada 
com NOT(32) para transforma-la em maiuscula se for miniis- 
cula, ou deixa-la como esta, se for maiuscula. 

Gostou? Bom, deixe-me explicar melhor. Supondo que a 
letra inputada esta em X$, entao os comandossao:X$= CHR$ 
(ASC(XS) AND NOT(32)), e X$ sera sempre urria letra maius- 
cula. segredo esta" em lembrar que a diferenca entre os codi- 
gos ASCII de uma letra minuscula e maiuscula e sempre 32 
(ASC(a)= 97 e ASC(A)= 6S), e em perceber que 32 eo valor 
do bit 5 e que, portanto, e suficiente ressetar este bit para sub- 
trair 32 de uma letra minuscula e transforma-la em maiuscula. 
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Ja se a letra for maiuscula, o bit 5 ja" estara" ressetado e nossa 
opera93fo n£b fara nenhuma diferen9a. 

Suponhamos agora que voce queira guardar em disco as res- 
postas de um estudo sobre "Hdbitos dos programadores de 
microcomputadores do Brasil", feito pormeio de formula'rios, 
sendo que cada formulano contdm 160 respostas do tipo "sim 
ouna-o". 

Se voce guardar cada resposta como uma letra (S ou N), es- 
tara usando um byte para cada resposta, e assim cada formula'- 
rio ocupara 160 bytes de mem6ria. Porem, pensando bem, se 
uma resposta so pode ser SIM ou NAO, entao ela so tern dois 
estados, exatamente como um bit. 

Um bit setado poderia equivaler a um SIM e um bit resseta- 
do a um NAO. Desta forma, um so byte poderia conter oito 
respostas, e o formulano ocuparia s6 20 bytes em vez de 160, 
o que representa uma economia nao desprezivel de 87.5%. 

Mas como fazer isso? Bom, se cada byte contem oito res- 
postas, a resposta mimero X (comecando a contar de zero) ca- 
bera no byte mimero BY= INT(X/8)+l e o bit correspondente 
sera o BI-((X/8)-INT(X/8))* 8. Faca um OR de BY com 
(2 + BI) se a resposta X for SIM^ ou faca um AND de BY com 
NOT(2 *BI) se a resposta for NAO. 

A figura 3 mostra um simples programinha que faz exata- 
mente isso num TRS-80, inclusive utilizando o macete do pri- 
meiro exemplo na Hnha 140. Usando este programa, as 160 
respostas estarao todas contidas nzstring RPS, a qual voce po- 
der^ guardar em disco, fita ou sei Id... Para decodificar RPS e 
obter de volta as respostas, use a fun^o AND para testar os 
bits um de cada vez, conforme expliquei. 



OBSERVA^OES finais 



Este programa so funciona com BASIC de disco por causa 
das funcSes INSTR (linha 50) e MIDS (linha 70), mas se voce 
nao dispQe destas funcOes, substitua as linhas 50 e 60 como 
segue: 

50 IF X? = "S" THEN 70 ELSE IF X$ = "fcf" THEN SO 
60 Y? = RIGHT? (LEFT$(RP$,BY) ,1) :RP$ = LEFT$ (RP$ ,BY-1) + 
CHR${ASC(Y$) OR (2tBI))+RIGHT$(RP$,LEN(RP?)-EY) 

E importante tambem lembrar que as funcOes 16gicas AND, 
OR e NOT so funcionam a nivel de bits nos BASIC da Micro- 
soft (que eu saiba) e com certeza nao agem da mesma forma 
no Applesoft, o que impede que os Apple-amigos usem estas 
dicas. De qualquer forma, podem ficar sabendo que, se instala- 
rem CP/M e M-BASIC, poderSo manipular seus bits. ■ 

m 
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w Apple e marca regi-sirada de Apple In 



Para voce, usuario da linha TRS-80 modelo HI, duas rotinas em BASIC 
que vao ajuda-lo a utilizar melhor os recursos do DOS 500 



Alem do BASIC, 

Assembler, DOS e 

outros misterios 



Roberto Quito de Sant'Anna 



Uma das queixas mais frequentes 
dos usuarios do TRSDOS/DOS 
500 6 a dificuldade na leitura 
do diretdrio. Devido a rapidez 
do rolamento da tela, mesmo utilizando- 
se a tecla @ , fica diffcil localizar um 
programa, principalmente porque, ao 
contrario do CP/M, os programas nao 
s&o listados em ordem alfabetica. Eo que 
acontece? Bom, se o disco em questSo 
estiver razoavelmente cheio, so consegui- 
remos achar um programa apos varias e 
irritantes tentativas, e o pior e" que, em 
99% dos casos, estamos interessados 
apenas em saber se ele esta ou n^o na- 
quele disco, dispensando todas as demais 
informacoes. 

A unica alternativa disponivel, que e 
chamar o BASIC e apreciar o diret6rio 
simplificado CMD"D.d'\ resolve apenas 
em parte o problema, pois persiste a ne- 
cessidade de uma lenta e cuidadosa pes- 
quisa correndo a ponta do dedo indica- 
dor sobre as quatro colunas da tela ate* 
se achar o programa desejado, uma vez 
que este diretorio simplificado tamb6m 
nao 6 dado em ordem alfabetica. 

Este problema serd a motivac, So inicial 
para fazermos neste artigo uma pequena 
expedicao ao territorio do Assembler e 
da linguagem de mdquina. Aqui ser£ des- 
crita uma sub-rotina em Assembler utili- 
zando rotinas ja existentes no DOS para 
ler ou escrever em qualquer setor de um 
disco, a qual tera como aplicafao dois 
utilitarios: o primeiro fornece um dire- 
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torio em ordem alfabetica do drive dese- 
jando (leitura) e o segundo possibilita a 
mudanca do nome e/ou data de um dis- 
co (leitura^escrita). 

AS FERRAMENTAS DE TRABALHO 

As rotinas do TRSDOS/DOS 500 em- 
pregadas sao : 

• CALL 4675H — le um setor do disco; 

• CALL 4600H — escreve um setor no 
disco. 

A primeira rotina copia um setor (256 
bytes) do disco para um buffer na RAM 
definido pelo usuario; uma vez feita a 
copia, o conteudo do buffer pode ser 
modificado a vontade e escrito de volta 
no disco com o auxilio da segunda roti- 
n<i. Ambas exigem que sejam carregadas 
nos registradores do Z80 as seguintes in- 
forma9oes: 

• D — trilha onde se localiza o setor de- 
sejado; 



• E — setor ; 

• B — zero; 

• C — numero do drive (0 — 3); 

• HL — enderefo inicial do buffer de| 
256 bytes. 

A sub-rotina em Assembler, com os] 
respectivos codigos-objeto, esta na figu- 
ra 1. Estes codigos, convertidos para ol 
sistema decimal, serao lidos pelos dois] 
programas e armazenados nas posi9oes| 
BEFOH-BEFCH (48880TM8892D), re- 
resultando na linha 80 do primeiro pro- 
grama ou na 130 do segundo: 

DATA 17, 1, 17, 1, 0, 0, 33, 
0, 101, 205, 117, 70, 201 

Note que o primeiro 1 da seqiienciaj 
(posieao BEF1H = 48881D) correspon^ 
de ao numero do setor e que o primeiro] 
(posieao BEF4H = 48884D) corres- 
ponde ao numero do drive, e que o con- 
teudo desses enderecos pode ser facil- 
mente modificado atraves de instrucSes? 
POKE. 















11 


01 


11 


LD 


DE, 1101H ; 


trilha em D e setor em E I 


01 


00 


00 


LD 


BC, 0000H 


zero em B e drive em C 


21 


00 


BF 


LD 


HL,0BF00H 


end inicial do buffer j 


CD 


75 


46 


CALL 


467 5H 


, leitura do setor ] 


C9 






RET 




, volta ao prog BASIC 



Figura 1 
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TRSDOS/DOS 500 X NEWDOS 



Para melhor compreensao de nossos 
aphcativos, torna-se importante, nesta 
altura, urna breve explanacSo sobre a 
organizaca*o da trilha 17 do TRSDOS/ 
DOS 500, a qual contem o diret6rio. E 
de toda conveniencia ter a mao, alem 
do SUPERZAP do NEWDOS, o artigo 
O NEWDOS que nao esta nos manuals 
pubhcado em MICRO SISTEMAS nu- 
mero 31, uma vez que a organizacao do 
diretorio nesses dois sistemas apresenta 
muitos pontos em comum. 

Para examinar a trilha 17 do seu dis- 
K ] °f no drive o disco com o 
NEWDOS e tecle SUPERZAP <ENTER> 
seguido de DTS<ENTER> ; coloque no' 
anve 1 (ou 0, conforme sua configura- 
cao) o disco com o TRSDOS/DOS 500 
e tecle 1, 17, 1 (ou0, 17, 1)<ENTER>. 
Importante: se voce n£o dispSe de NEW- 
DOS, nao fique triste: salte por cima da 
teona a seguir, digite e usufrua dos apli- 
cativos (e... trate de arranjar urn rapidi- 
nno!). 

Tal como no NEWDOS, o primeiro 
setor do diretdrio contem a tabela de 
? lo 4 ca ?f A f J espaco no disco (a partir do 

d ! VJSa° H° di S° da senh a do disco 
(bytes CEH e CFH), o nome/data do dis- 
co (bytes D0H a DFH), a alocacao do 
comando AUTO a partir de E0H, alem 
de outras informacdes. Digitando a tecla 
; , voce vera que o segundo setor tam- 
bem contem os codigos HASH (calcula- 
dos atraves do nome/extensao do arqui- 
vo - yer opcao DNTH do SUPERZAP) 
correspondentes a cada urn dos arquivos 
ou o valor 00H se o arquivo foi apagado' 
Aqui, como no NEWDOS, a seqiiencia 
dos codigos HASH corresponde exata- 
mente a seqiiencia em que os arquivos 
aparecem no diretorio, o que facilita a 
identificacao. 

A partir do terceiro setor (ver flgura 
2) comecam as entradas do diret6rio 
propriamente ditas, e aqui reside a prin- 
cipal diferen?a em relacao ao NEWDOS- 
ao inves de 32 bytes, cada entrada de ar- 
quivo utiliza 48 bytes, o que nos da cin- 
co entradas por setor de 256 bytes e 
uma sobra de 16 bytes na ultima linha 
bytes F0H a FFH, que sao usados pelo 




do fabricate (F0H) ^ q ™ tCV€ ° Seu ar ^ ulvo eliminado por KILL (60H) e a mensagem 



fabncante para vender a sua marca (sa- 
GTm% Ue ° 0m ° subcornan do MODnn do 
SUPERZAP voce pode colocar aqui qual- 
quer mensagem sua?...). E muito impor- 
tante notar, como diferenca fundamen- 
tal que o TRSDOS/DOS 500 zera todos 
os bytes de uma entrada de diretorio cu- 

i° UWJ tenha sido a P a S ad o por meio 
ae KILL (em vez de zerar apenas o pri- 
meiro byte), o que torna muito dificil 
- mas nao impossivel - a recuperacao 
de arquivos. 

A organizacao das entradas, a menos 
dos 48 bytes, 6 muito semelhante a des- 
cnta no artigo sobre o NEWDOS que 
mencionamos. Atente bem, ainda na fi- 
gura 2, para o primeiro byte de cada en- 
trada (normalmente 10H para arquivos 
de usuario na~o-protegidos e nSb-invisf- 
veis) e para os bytes de 6 a 16, que con- 
tem o nome e extensao de cada arquivo 
detalhes a serem explorados por nosso 
primeiro utilitario. Aconselho, antes de 
prosseguir na leitura, urn passeio de ida 
e volta ao longo de toda a trilha 17, uti- 
lizando as teclas ; para avancar e - para 
recuar. Note que voce sempre podera sa- 
ber onde esta" consultando as informa- 
coes localizadas a esquerda da tela (fieu- 
ra 2): DRV/drive, DRS/setor relativo no 
disco, TRK/trilha e TRS/setor relativo 
na trilha, dados em decimal e em hexa- 
decimal. 

Antes de passarmos aos utilitarios, 
uma dica : a linha 40 de ambos os progra- 
mas realzza a protecao da memoria aci- 
ma de BEEEH = 48878D, onde ficarao 



armazenados a sub-rotina de leitura-es- 
crita (BEF0H-BEFCH) e o buffer para 
onde os setores lidos serao transferidos 
(255 bytes a partir de BF00H). Esta e 
uma dica muito importante, pois permi- 
te-nos executar programas que necessi- 
tem de protecao de uma area de memo- 
ir sem que tenhamos que voltar ao 
DOS e chamar novamente o BASIC pa- 
ra responder ao Mem. usada? (as posi- 
coes 16561 e 16562 devem conter, na 
forma LSB-MSB, o endereco a partir do 
qual se deseja proteger a memoria, sen- 
do indispensavel executar logo apos urn 
CLEAR n, para que o sistema redefina a 
localizacao do espaeo de armazenagem 
string). 



UM DIRETORIO MAIS PRATICO 



O programa que esta na iistagem 1 rea- 
liza a Iistagem em ordem alfabetica do 
diretorio de um drive especificado, uti- 
lizando a nossa sub-rotina na funcao de 
leitura. A essentia do programa esta 
contida nas linlias 200-240: um Iaco 
controJado pela variivel SE percorre os 
setores de 3 a 18 da trilha 17, transferin- 
do-os, um de cada vez, para o buffer (va- 
navcl BFS, cujos comprimento e ende- 
reco foram modificados na linha 150. 
colocando-a na area protegida de memo- 
ria); em seguida, um laco controlado pe- 
la variavel J percorre as cinco entradas 
de cada setor e, caso se trate de um ar- 
quivo nao-protegido e nao-invisivel (pri- 
meiro byte igual a 1 OH = 16D), trans- » 

**3 



dimensfles de 16 f ' 9Uras 9eom6tricas, a partir de suas 



m*Z. P f°% rama &° er » forma de menu - grande pedida para proqra- 
madores de todos os nh/eis. Este artigo mostra a importfnda d£ttl« 
interativas e algumas ttfcnfcu para a sua elaborate 

f« r «. qUem d - se que 6 dif4 ' cil ana'isar balangos de empresas? S6 se 
for pare quern nao tern um TRS-80 e o programa An*J*£to££ 

S u S odrco P SS Perar Pr ° 9ramaS -P-*™«— Perdidos 
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fere seu nome/extensao, localizados en- 
tre o 69 e 169 bytes em cada entrada, 
para um elemento da matriz string PR$, 
a qual, apos classificada (CMD "0'\ li- 
nha 250), tera seus elementos impressos 
a razao de 32 por pdgina de video, sob 
controle do operador. 



PARA IDENTIFICAR SEUS DISCOS 

O programa da listagem 2 demonstra 
o uso de nossa sub-rotina para ler um se- 
tor no disco e escreve-lo de volta. Apds 
devidamente modificado, possibilita ao 
usuario alterar os nomes e as datas de 
seus disquetes com vistas, por exemplo, 
a uma melhor catalogac^o, com a vanta- 
gem adicional de poder colocar a data em 
qualquer formato, tal como 20ABR84, 
ou qualquer outra informa9ao em seu 
lugar, desde que esta data nao ultrapas- 
se oito caracteres. 

O programa interroga a quantidade 
de drives existente no sistema, orientan- 
do automaticamente o disquete a ser 
modificado para o drive 1 , se existirem 
dois ou mais drives (linhas 120-140). O 
setor lido agora e somente o setor 1 da 
trilha 17, que conte'm, entre outras in- 
formafOes, o nome e a data do disquete 
nos bytes D0H-D7H e D8H-DFH, res- 
pectivamente. A leitura propriamente 
dita e a transferencia para buffer sao 
feitas na linha 180, e o nome/data do 
disquete sao armazenados na string N$ 
(remanejada, na linha 70, para as 16 po- 
si$6es a partir de BFD0H — portanto, 
nas exatas posicoes de nome/data do 
buffer), a qual, se desejado, sera modi- 
ficada com os novos nome e/ou data 
que serao armazenados em N$ na linha- 
300. 

O detalhe mais interessante a consi- 
derar e* a modificafao da sub-rotina para 
que ela possa escrever o setor de volta 
no disco (conforme vimos no initio do 
artigo, as duas rotinas do DOS envolvi- 
das sao as localizadas em 4675H (le) e 
4600H (escreve), cujos parametros sao 
exatamente os mesmos e cujos endere- 
90s diferem apenas no LSB). Examinan- 
do a listagem fonte da sub-rotina, vemos 
que a instru^So CALL 4675H corres- 
pondem os codigos-objeto CD 75 46 
(atencSo: LSB-MSB!), e que o hexadeci- 
mal 75 corresponde ao 1 19 byte da sub- 
xotina, ou seja, a posicao de memoria 
BEFAH, )& que a sub-rotina esta" armaze- 
nada a partir de BEFOH. Em conseqiien- 
cia, para que a sub-rotina seja transfor- 
mada em uma de escrita, basta POKEar 
o decimal na posi£5o BEFAH, confor- 
me a linha 300, chamar a sub-rotina e 
reverte-la em seguida a condi^So de lei- 
tura, deixando-a em condicdes de ser 
utilizada novamente (lembre-se: 117D 
= 75H). 




• Linha 40 — protege memoria a partir de BEEEH; 

• Linha 120 — leitura e armazenamcnto da sub-rotina; 

• Linha 150 ^ remanejamento de BF$ para o buffer; 

• Linha 1 90 — coloca em BEF4H o numero do drive ; 

• Linhas 200 a 240 — . cone 0s setores de 3 a 1 8 ; transfere para o buffer; 
seleciona em cada setor arquivos de usuario ; transfere nome/ext para , 
matriz PRS; 

• Linha 250 ~ elassifica PR$ em ordem alfabe'tica; 

• Linhas 290 a 350 - lista PR$ com 32 arquivos por pagina de video; 

• Linhas 380 a 440 ** sub-rotinas para as diversas mensagens ao operador. 



Listagem 1 



10 '********LISTA DIRET0RI0S EM ORDEM ALFABETICA******** 

20 r ***Por Roberto QUITO de Sant 'Anna - CP 24039 - RJ*** 

30 ***************************************************** 

40 POKE 16561, SHEEsPOKE 16562, &HBE 

50 CLEAR 5000JDEFINT A--Z:DIM PRfc< 90) s8F5="" 

60 Mi*="*********"sM2$=STRINGS<17,"--"> 

70 M3$~"0IRET0RI0 EM ORDEM ALFABETICA DO DRIVE ==>" 

SO M4$-"TECLE <ENTER> PARA NOVA TELA 0U <S> PARA SAIR" 

90 M5*="<ENTER> PARA NOVO DIRET0RI0 OU <S> PARA SAIR" 

100 M6*="DIRET0RI0S EM ORDEM ALFABETICA" 

110 M7$~STRING%(63,"*"> 

ISO FOR N--16656 TO --166448READ A:P0KE N,A:NEXT 

130 DATA 17,1,17,1,0,0,33,0,191,205,117,70,201 

140 DEFUSR0e«HBEF0:K=0«N«VARPTR(BFl):Ni-N+l:N2=Ni+i 

150 POKE N,2SSapOKE Ni,&H00=P0KE N2 F «HBFiCLS 

160 GOSUB 420 SPRINTS) 530 /'QUAL DRIVE (0-3) > ?"; 

170 DR$=INKEY*:IF DR*="" THEN 170 

180 DR-UAL(DRS) >IF DR<0 OR DR >3 THEN CLSsGOTO 160 

190 PRINT " "pORBPOKE SHBEF4,DR 

200 FOR SE=3 TO iSsPOKE &HBEF1 , SE: X=USRO<0) 

210 FOR ,1=6 TO 230 STEP 40 

220 IF ASC(MID4<BFS,J-5,i> )<>16 GOTO 240 

230 K»K + iaPR , t<K>=MID<E(8F%,J,ll> 

240 NEXT J : NEXT SE 

250 CMD "0",K,PR*<1) 

260 CLStPRINT Mi«;M34 jDR ( H11:PRINT 

270 PRINT M2$ ? "C0NTEM"?K ; "ARGUIV0S DE USUARIO" ? M2«& 

280 POKE 169i6 F 3:CLS!lND»INT<K/32>+HH8GS*M4t 

285 IF K/32~INT<K/32> THEN IND-XND-1 

290 FOR I-i TO INDs FIM=L*32: C0M=FIM-31 sCLS 

300 IF K<-FIM THEN FIM-K :MSG4-M5<& 

310 PRINTSFOR II-COM TO FlMsPRINT PR%<II>+" "j SNEXT 

320 IF FIM=K POKE T,6lsP0KE T+i ,61 =P0KE T+2,62=G0T0 350 

330 GOSUB 380 s IF Z<bO"S" GOTO 350 

340 CLS:MSG$=M5$sP0KE 16916 ,0SCLS:G0SUB 420 : GOTO 360 

350 NEXT I 

360 GOSUB 430 : IF Z$="S" POKE 16916, OsCLSsEND 

370 POKE 16916, 0SG0T0 50 

380 PRINTS 905,MSG*:T=154G8 

390 POKE T,32SP0KE T+1,32=P0KE T+2 , 32 

400 ZS^INKEYftsIF Z%<>"" RETURN 

410 POKE T,61=P0KE T+l,6i:P0KE T + 2 ,62sG0T0 390 

420 PRINT M7$:PRINT TAB < 17 ) -M6SJPRINT M7*:RETURN 

430 PRINTiO 905 r MSG?BsZ<t--=INKEY$«IF Z%*>"" THEN 430 

440 RETURN 
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Bern, espero ter mostrado alguns ves- 
tigios da vida inteligente (e comol) que 
existe alem do BASIC. Dificil? Talvez, 
mas sempre temos a tendencia a consi- 
derar dificil tudo o que nao dominamos 
e, de qualquer modo, toda dificuldade 



encontrada sera regiamente recompen- 
sada pelos novos recursos de que passa- 
remos a dispor: velocidade, flexibilidade 
e realizacao pessoal. que esta esperan- 
do? Tal como para a maioria da boas 
coisas da vida, o dificil 4 comecar... 



Detalhes sobre a Listagem 2 



• Linha 40 — 

• Linha 50 — 

• Linha 70 - 

• Linha 140 ~ 

• Linha 180 - 

• Linhas 210 

• Linhas 250 

• Linha 300 

• Linha 3 10 



protege memdria a partir deBEEEH; 
leitura e armazenamento da sub-rotina; 
remanejamento de Nl $ para o buffer; 

- coloca em BEF4H o nuiiiero do drive; 

- leitura do setqr e identificacSo do nome/data atuais; 
a 240 — entrada e formatacao do novo riome; 
a 280 — entrada e formatacao da nova data; 

- redefinicao de Nt-$ e rriudanca da sub-rotina para escrever; 

- escreve o setor e mudanca da sub-rotina para ler. 



Listagem 2 



10 
20 

30 

40 

50 

60 

70 

80 

90 

100 

iiO 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

230 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 



PARA SAIR' 
THEN 320 



'***£* MU ™ N0 , ME/DATA DE D] -ske:ttes trs oos/dos soo***** 

^»«*Por Roberto QUITO de Sant ' Anna - OP 24039 - RJ*«# 

™£ E u 16 ?£U! HEEliP0KE iA562,«HBEiCLEAR 200 
FOR N=-16656 TO -16644SREAD A:P0KF N AsNEXT 

DEFUSRagHBEFOnNiS-^sNi-VARPTRtNiS) 

POKE N1,16:P0«E Ni+i , SHOOsPOKE Nl+2 &HBF 

DATA 17, i, 17,1,0,0, 33,0,191,205, 117,70,201 

Mi & = "#********»*" !M 23i = STRING$< 6? "-"> 
M3<G-"MUDA NOME/DATA DISKETTES TRSDOS/DOS 500" 
CLSsPRINT MiIfM3$phltsPRiNT M2*:P0KE 16916 P 
PRINTS) 205 r "«IJANT0S DRIVES TEM SEU 8ISTEMA "- 
INPUT DRiXF DR<*1 THEN DR=0 ELSE DR = 1 ^"^^ ' 
POKE &HBEF4,DR 

CLSSPRINT3 208,"COLOOUE DISKETTE NO DRIUF' 
PRINTS 33i,"TECLE < ENTER) PARA MUDAR OU <3> 
■YB=INKEY5slF Yt="" THEN 170 ELSF TF Y$="S" 
X = USRC0>!N2S=LEFTS(Nil,8>SD2S = RiaHT«B<NiS 8) 
CLSSPRINT3 205, "0 NOME ATUAL E' ===> "«N?S 
PRINTS 333, "A DATA ATUAL E' ==«> "-D2<b' 
PRINTS 312,"ENTRE NOVO NOME OU <ENTER> PARA MANTER >' 
LINE INPUT N5SIF NS-"" N»=N25eG0T0 250 
IF LEN<N5)<8 THEN NS=NS+STR ING* (8-1 FN(N* ) " ") 
IF LEN<NS)>8 THEN N5&=LEFTS<N$ ,8) 

PRINTS) 64Q,"ENTRE NOVA DATA OU < ENTER > PARA MANTFR V 
LINE INPUT DBS IF DB="" THEN DS=D2ftsGOT0 290 
IF LEN<DS><8 THEN DS=Dt+STRINGS<8-l FN(D1) " ") 
IF LEN<0S)>8 THEN D*=LEFTS<D5,8> 

OLS: PRINTS 592 /'GRAVANDO " ? N$-"< >" S DB 

N«"=NI+DSBMID»(NiS F i,i6)-Nft8POKE &HBEFA O 

X=USR(0)iPOKE &HBEFA,ii7:F0R N=i TO iOOOsNFXT 

CLSBPRINTO 843,"", 

PRINT "<ENTER) PARA NOVO DISKETTE OU <S> 

2S-INKEYSSIF Zft="" THEN 340 

IF ZS*"S" POKE iA916,0!CLS!END ELSE GOTO 



PARA SAIR' 



150 



Roberto Quito de Sant'Anna 6 engenheiro de teiecomunicacSes, formado pelo Institute MiUtar 
h! JLT" f na J SZ£f? r da cadeiro de informa-tica da Academia MHitar das Agulhas Negras, 
an *r *??%■!£ 1982 4 tamb ^ m ootaborador da MlCBO-MAXl Computations e Sistemas como 
anansta de sistemas. 
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Asoluc:3ol6qica 



TODA A LINHA 
DE MICROS E 
MINICOMPUTADORES 



A informagto nas pontas do* seus dedos 



Gerenciador de 
banco de dados 

mm 



Stetemu opwa cto na H : 
MS-OOS (IBM-PC) CP/ 
M CP/M-66 CROMIX 
COOS MP/M MP/M-86 

D Cursor «ndere$4v«l 
para o uso de fun^Ou 
fullscreen. 



Automacao 
de escritorios 



Requerimentos do 

Slstema: 

D (MldoproceBsadores 8080, 

8085, Z80, B0B6, SOBS) 
D 64K p/ CP/M; 128K p/ CP/ 

M-Se • MS-OOS; 56K p/ 

Apple II 
D 2 Oisketu c/ mlnhno de 

i26Kc»da 
O Terminal c/80 colunes « 

cursor endelecavel 
□ knpressora com no mfni- 

mo 80 colunas. 



DiMMC I'CMile; Mm liCRMIgttit <tK*l 83/85/2000) 
CTe 200/300/500. ;.knpi«Mor»i, •***. eloin, dtemw 

■liiiiirie^tiiwih^ 






!vrn b ' v v 



Otoco* 

SiSSS^Ssi^- ^ • i 



End. Rua da Lapa, 180 gr. 1108 a 1110- CEP 
20021 — Rio de Janeiro -~ Tel.: (021) 221-3069 



ICRO PROCESS 



COMPUTADORES LTDA. 



CENTRO DE MICROS 

• AVALIACAO DE CARGA 

• PLANEJAMENTO 

• DIMENSIONAMENTO 

• IMPLANTACAO DE 
EQUIPAMENTOS 

• PROGRAMAS 

• TREINAMENTO 

Implantacao racionalizada 
de micro-centros para 

• Co mere io 

• Industria 

• Profis. Liberals 
EQUIPAMENTOS 

• Microdigital 

• Prologica 

• Unitron. CCE. etc.. 

SOFTWARE 

• Programas especiais 
personaliz. de softer 

• Pacotes p/ advogados 
Despachamos Via Varig 

AMPLO FINANCIAMENTO 

TEL.: 64-0468 

Alameda Lorena, n° 1310 

CEP 01424 - Sao Paulo 

* # ESTACIONAMENTO PARA CLIENTES* 
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0111 0100 


0000 1100 lit! 
4U0 1000 0010 
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Curso de 
Assembler — XVI 



'omo ja pudemos observar durante o curso, o microprocessador 
Z80 tern a capacidade de realizar operacoes com 16 bits. Nesta licao, va- 
mos conhecer o grupo de aritmitica de 16 bits, o qual se refers as ope- 
racoes aritme'ticas que podem ser realizadas com pares de registradores 
(por exemplo, HL). Vamos conhecer estas instrucoes, 

1 - AdicSo de registradores de 16 bits 

Formato: ADD HL, ss 

Operacao: Efetua uma operacao de adicao entre o conteudo do par 

de registradores HL e outro par de registradores de 16 

bits. 
Cddigo Obfeto: 



ADD 



HL,ss 



— i 1 1 1 — i— I 1 — 

OOsslOOl 



(para o par ss, veja f i gur a 1) 



s s 

S 5 
S S 
SS 



00 para o par de registradores BC 

01 para o par de registradores DE 

10 para o par de registradores HL 

11 para o par de registradores SP 



Figura 1 
Exemplo: 



ADD HL,SP 



1 1 10 1 



-►39 



Descricab: O conteudo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE, HL ou SP) e somado ao conteudo 
do par de registradores HL e o resultado e' guardado em HL. 



84 



ADD 




Ciclos de mdquina (M) : 3 
States (T): 11(4 .4 ,3) 

Flags aferadas: S - nao afetada; 
Z - nao afetada; 

H - setada se ocorre vai-um do bit 1 1 ; senSo 6 ressetada; 
P/V — nao afetada; 
N — ressetada; 
C — setada se ocorre vai-um do bit 15; senao e ressetada. 

Urn exemplo: se o par de registradores HL contem o inteiro 4242H 
e o par de registradores DE contem 1111H, apos a execusao de ADD 
HL, DE, o conteudo do par de registradores HL sera 5353H. 

2 - Adi^ao de registradores de 16 bits com Cany 

Formato: ADC HL, ss 

Operacao: Efetua uma operacao de adicao entre: o conteudo do 

par de registradores HL, o outro par de registradores de 

16 bits e o conteudo da flag Carry. 
Cddigo Obfeto: 



(para o par ss, veja figura 1) 

Exemplo : 

ADC HL t M 



DescncSo. O conteudo do par de s registradores ss (qualquer dos pates 

r^^ StTad0Ies: ^ C >? E ' HL °« SP) ^ somado com a%r 
Owy e com o conteudo do par de registradores HL- o resuL 
tado e guardado no par de registradores HL 



ADC HL,ss 



HL 



HL+ss+CY 



C/c/os de mdquina (M): 4 

States (T): 15(4 ,4,4,3) 

Flags afetadas; | - setada se o resultado e negativo; senao e ressetada 
H ~ S? * ° rcsul ; ad o e zero; senao e ressetada 
H - setada se ocorre ra/-«m do bit 1 1 ; senao e ressetada 

k Z ^l a< T w OCOTre um ov erflow: senSo e ressetada 
i^i — ressetada; 

re^^^ 

Fo^o^rHL,3 giStlfad0ieS ^ " WtS m ^ 

^'^ E£ X S*/*?"*?* S" 15 *^ e "^ : o conteudo do 
ffhft ff^?°^ S H V °^ tto par de registradores de 
GX%> OA/eto; S e ° COnteUd ° * ^ COT ^- 

SBC HL,ss 



1110 

— I 1— I — 



1 s 



— r — i — r— 
110 1 

— I 1 — i — 



10 

— I — I — 1 



(para o par ss, veja flgura 



1) 



Exemplo; 



ADD 



IY,r 



— ' 1 1 1 — -i 1 1 — 

1111110 1 

— * 1 1 1 1 1 ■— 



OOrrlOOl 

' 1 L 1 1 1 |__ 



C6DIG0 



Ob 
01 
10 
1 1 



PP 



BC 
DE 
IX 
SP 



ADD IX, BC 



I'lVl 1 10*1 



■+■ — i 1 1 — I 1 1- 



00001001 

— I- — I — 1 — I ■ 



r r 



BC 
DE 
IY 
SP 



FD 



> OD 

> 09 



Exemplo: 



SBC HL,DE 




Descntfo: O conteudo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE,1hl ou SP) e ^%g Carry s loS 

Si?? do S° nte,ido d0 W de registiadoref HL/e o reS 
taao e guardado no par de registradores HL. 



SBC HL.ss 



HL 



HL-ss-CY 



Ciclos de mdquina (M) • 4 

States (T): 15(4,4,4,3)' 

Flags afetadas; S - setada se „ resultado e negativo; seniTo 6 ressetada- 

Z - setada se o resultado e zero; senao e ressetada : 

resseteS- * ™ ° COire Um em P r ^ stimo do bi * 12; senao e 

N^ setada^ * ° C ° n * Um overfloW: xnSo * ressetada; 

Um exempt iS^^KSjfe^SS^ 

±>us d execucao ae !»BC HL, DE, o conteudo de HL sera 8887H. 

JwffiB© l T ^ d0t "**»** Wm P* de registradores 
_ ADDIY,rr 

Vperacao: Efetua uma operate, de adicSo entre o conteudo do re- 

Cddigo Objeto: 



AOD IX, pp 



1 I ■ i i i i — ■ 

11011101 



—I — I — I — *— I — I — h 

OOrrlOOl 

1 1 1 1 1 L ■ ■ 



>DD 
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Descricao: 



O conteudo do par de registradores pp ou rr (qualquer 
tZ^^ d0ier U BC ' °^ SP ou r ^ Y > » tornado ao 
fcS H ° Par de , re S lstradore s « ou IY, e o resultado 
e guardado no par de registrador indexador. » 




GARANTA 
SUA MS 

TODO AAES ! 

Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce 1 nao queira 
cortar a revista); 



no me. 



empresa. 



profissaWcargo. 



endereco para remessa. 



cidade. 



.cep. 



.estado. 



Cr$ 20.000,00 



Assinatura anual 

□ Micro Sistemas i-r<x innnnnn 

D Informatica&Administr^o '. [ [ [ Crl 20 000 'SS 

D Micro Sistemas + Informitica & * 20.000,00 

, Administrated "~ Cr$ 3B.00n ,nn 

Preencha um cheque nominal a ATI Editors Ltda 



para 



e anvie 



Av. Presidente Wilson, 165/grupo- 1210, Centro, Rio de 
Janeiro, RJ,CEP 20030- tels.: (021 ) 262-5259 e 262^208 
R. Oliymra pias 153, Jardim Paulista. Sa- Paulo, SP, CEP 

SL^iU te ' S i (01 . 1) 853 - 7758 t 881-5668 e 853-3800 
Seu recibo serd envrado pelo correio. 



CURSO DE ASSEMBLER - XVI 



ADD IX, pp 



ADD 



IY.rr 



IX 



IY 



I X + pp 
IY + rr 



Ciclos de mdquina (M): 4 

States (T): 15(4,4,4,3) 

Flags afetadas: S - n£o afetada; 

Z — nSo afetada; 

H - setada se ocorre vaium do bit 11; senSo e ressetada; 

P/V - nao afetada; t 

N - ressetada; 

C - setada se ocorre vai-um do bit 15; senao e ressetada. 
Um exemplo: se o conteudo do registrador indexador IY e 333H e o 
conteudo do par de registradores BC e 555H, apos a execucao de ADD 
IY, BC, o conteudo de IY sera 888H. 

5 - Increments par de registradores 

Formato: INC ss 

Operacao; Incxementa o conteudo do par de registradoies especificado. 

Cddigo Objeto: 



INC ss 



— 1 






1 1 

s 


s 





i 1 


J 1 


1 


1 



(para o par ss, veja figura 1) 



Exemplo: 



INC 



HL 



0010001 1 



-> 23 



Descricao: O conteudo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE, HL ou SP) e incrementado. 

INC ss ss^ ss+1 

Ciclos de mdquina (M): 1 
Flags afetadas: Nenhuma. 

Um exemplo: se o par de registradores HL contem 1000H, apos a 
execucao de INC HL, o par de registradores HL contera 1001H. 

6 — Incrementa registrador indexador 
Formato: INC IX 
INCIY 
Operacao: Incrementa o conteudo do registrador indexador IX ou IY. 
Cddigo Objeto: 



INC IX 



1 "f T i ■ i 1 r— * i — 

110 1110 1 

1 1 1 ! 1 1 1 



10 1 1 

■ I I — I — I — I — 



-► DD 



>23 



INC IY 



— I 
1 


1 


I 1 

1 


I — I 
1 


I — I 
1 


1 


I 1 




1 — 
1 




1 





1 

I 




l_J 




I — I 





1 

1 1 


1 

1 




Descricao: O conteudo do registrador IX ou IY e incrementado. 

INC IX IX- IX+1 

INC IY IY~— IY+1 

Ciclos de mdquina (M): 2 " 

States (t): 10(4,6) 

Flags afetadas: Nenhuma, 



Um exemplo: se o conteudo do registrador IX e 3300H, apos a exe 
cucao de INC IX, o conteudo do registrador IX sera 3301H. 

7 - Decrementa par de registradores 

Formato: DEC ss 

Operacao: Decrementa o conteudo do par de registradores especificado, 

Codigo Objeto: 



DEC 



s s 



■~n 










r— 











i 


s 

i 


s 

L— J 


1 




■ 


1 

i i 


1 



(para o par ss, veja figura 1) 



Exemplo: 



DEC HL 

T 1 



T 1 1 1 1 r I 

0010101 1 

' I I I I 1 — 



Descricao: 



O conteudo do 
res de registradores 



DEC 



par de registradores ss (qualquer dos pa- 
ires: BC, DE, HL ou SP) e decrementado. 

I S -* — s s - 1 



Ciclos de mdquina (M): 1 

States (T): 6 

Flags afetadas: Nenhuma, 

Um exemplo: se o conteudo do par de registradores HL e 1001H,; 
apos a execucao de DEC HL, o conteudo de HL sera 1000H. 

8 - Decrementa registrador indexador 
Formato: DEC IX 
DEC IY 

Operacao: Decrementa o conteudo do registrador indexador IX ou IY 
Cddigo Objeto: 



DEC 



IX 

1 — r 



i — i — i — i — i — i — i — 
11011101 

— I — I — I — I — 1 — I — I— 

10 10 11 

■ ■ ' I I I. , J — 



DD 
2B 



DEC 

T r 



IY 



1 1 \ \ 1 1 1 — 

1111110 1 

— I 1 1 ! 1 1 1 — 

0010 1011 

I I I — I — I — I — I — 



>FD 

> 2B 



Descricao: O conteudo do registrador IX ou IY e' decrementado,] 

DEC IX 1X-* — IX- 1 

DEC IY IY-« — IY-1 



Ciclos de mdquina (M): 2 
States (T): 10(4,6) 
Flags afetadas: Nenhuma. 

Um exemplo: se o conteudo do registrador IY e 7649H, apos a exe-| 
cucao de DEC IY, o conteudo do registrador IY sera 7648H. 

Estamos chegando ao fim das instrugocs do microprocessador Z80, 
Apos completarmos a descricao de todas as instrucoes disponiveis, seraqj 
divulgadas algumas dicas para a elaboracao de'programas em Assembler:; 
Dai* para frente, o rcsto e com voce. Ate a proxima lica"o. ™ 
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NOVO CP 300 PROLOGICA. 



Pode ser 
acopladoa uma 

impressora 



pequeno 
grande micro. 

Agora, na hora de escolher entre um 
microcomputador pessoal simples, de faci I 
manejo e um sofisticado microcomputador 
profissional, voce pode ficar com os dois. 
Porque chegou o novo CP 300 Proldgica 
novo CP 300 tern prego de 
microcomputador pequeno. Mas memdria 
de microcomputador grande. 

Ele ja nasceu com 64 ^ 
^ kbytes de memdria 

interna com 
possibilidade de 
expansao de memd- 
ria externa para ate 
quase 1 megabyte. 
E tern um teclado protissional, 
que da ao CP 300 uma versatilidade incrfvel. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. 





Gompativel com 

programas em fita 
cassete ou em disco. 



Pode ser ligado ao seu ciparelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa. 
Com o CP 300 voce pode 
fazer conexdes telefdnicas 
para coleta de dados, 
se utilizar 
de uma 






Permite 
conexao 

telefdnica. 



tinico na sua faixa que ja 
nasce com 64 kbytes de memoria. 



impressora , 

„ ' ■ j ,. ^-r , , Pode ser ligado 

6 ainda dlSpor de tOdOS a um televisor comum 

os programas existentes ou a " m sofisticado 

r 3 „ terminal de video. 

para o CP 500 ou o 
TRS-80 americano. E o que e melhor: 
voce estara apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 
CP 300 Proldgica. 

Os outros nao „ m p RO LOGICA 
fazem o que ele faz, ■ n microcomputers 
pelo prego que ■■■ 

ele CODra. Av Eng. Luis Carlos Bernni. 11£8 - SP 
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demonstrapao 
nos principals 
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Interface de impressora incorporado 



Teclodo profissional 



o 



A Microdigital apresenta 
o novo TK 2000 color. 



Que tal urn micro de alto, performance, que traz as principals ca racteristicas 

dos equipamentos mais sofisticados e que nao exige de voce urn grande 

investimento inicial? E que tai um micro que cresce de acordo com as suas 

necessidades? Sao estas as vantagens que vao fazer do novissimo 

TK 2000 Color um dos maiores sucessos no setor. 

Ve/'a: e/e tern 64K de memoria RAM e 16K de memoria ROM, teciado professional 

tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 

trabalha em cores, oferece alta reso/ucdo grafica e som. 

Peqa uma demonstraqao. Nunca tanto foi Ihe oferecido por too pouco. 

Grande quanfidade de software disponivel (entre e/es: di versos apiicativos 

comerciais e jogos a cores de alta reso/ucao grafica). 

ESe tern tudo que um 
micro deve tezMenos oprego. 

Caixa Postal 54088 CEP 1000 - Sao Pau/o - SP - Telex N? (01 1) 37.008 ■ Mide BR 

A vender nas boas cosas do ramo, lojas especializadas de fotoYideo-sotw e grandes magazines. 

Se voce nao encontrar este equspamenio no sua cidade ligue para (Oil) 800-255-8583. 



